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This month: Fly 
a SAILPLANE and soar 
to new heights! 

Race with the 
wind - CARIBBEAN 
CRUISING - our 
SAILBOAT feature. 

Armchair GOLF can 
be challenging. No 
golf bags to carry! 

Be a professional 
race car driver and 
try the GRAND PRIX! 



Also - Soimd for 
your computer, games 
to challenge your mind, 
graphics features of the most 
popular computers, and 
programming tips from 
the pros! 





The Best 



B 



• !• 



ksfor 



your 
computer! 

From Harvard Pennington, Sceibi Publications, SoftSlde 
Publications, Dr. David Lien and nnany more ! . . . 



^Sargon Handbook 

by Dan and Kathe Spracklen 



The BASIC Handbook 

by Dr. David A. Lien 



$15.95 plus $1 
$14.95 plus $1 



Z-80 Instruction Handbook 
by Sceibi Publications 

$4.95 plus $1 

The Little Book of BASIC Style 
by John Nevison 

$5.95 plus $1 

TRS-80 Assembly Language 

Programming 

by William Barden, Jr. 

$3.95 plus $1 

APL - An Interactive Approach 
by Gilman and Rose 

$15.50 plus $3 

Introduction to TRS-80 Graphics 
by Don Inman 

$7.95 plus $1 

Learning Level 11 
by Dr. David A. Lien 

$15.95 plus $1 

Z-80 Software Gourmet Guide and 

Cookbook 

from Sceibi Publications 

........$14.95 plus $1 

TRS-80 Disk and Other Mysteries 
by Hansard Pennington 

$22.95 plus $1 



TRS-80 Interfacing 
by Jonathan Titus 

$8.95 plus $1 

Secret Guide to Computers 
by Russ Walters 

$5.95 plus $1 

6502 Gourmet Guide and Cookbook 
from Sceibi 

$10.95 plus $1 

Introduction to Low Resolution 

Graphics 

from Sceibi Publications 

$7.95 plus $1 

Z-80 and 8080 Assembly Language 

Programming 

by Kathe Spracklen 

$7.95 plus $1 

Pathways through the ROM 
from SoftSide Publications 

$15.96 plus $1 

Personal Information Management 
System (PIMS) 

$9.95 plus $1 

Calculating in Basic 

$7.95 plus $1 

Understanding Microcomputers 

$9.95 plus $1 

Take my computer . . . Please 

$5.95 plus $1 

Learn Micro Computers 

$14.95 plus $1 

Microcomputer Potpourri 
$2.95 plus $1 



To order Toil-Free 1-800-258-1790 

(In NH call 673-5144) 
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EDITORIAL 



by Mark Pelczarski 



Surprise! If you haven't already 
noticed, what was a tiny little 
magazine for your TRS-80 or 
Apple, depending upon your 
previous vantage point, is now a 
real size magazine for the TRS-80, 
Apple, Atari, and more! "What 
does this mean?" you might ask. A 
good question, and quite worthy of 
an editorial. 

What will we offer? Why change 
from a magazine that was entirely 
for one machine, thus always 
applicable to YOUR computer, to 
one that will hold a mixture of 
items for more than one? The 
answer to the second question lies 
in the first. We will still give you 
the same kind of software we've 
always given you for YOUR 
computer, but now we will also 
show you what people are doing 
with other machines. We've found 
that most of the ideas we receive 
are not necessarily machine- 
specific, so why not share them 
with all? Furthermore, along with 
our format change, we have 
resolved that we will offer the best 
in documentation for ALL 
programs, telling you exactly how 
they work, defining the variables, 
and helping you understand them 
as you type. This means that not 
only will the programs for your 
computer be documented in a 
somewhat tutorial form; programs 
for other computers will be Hsted 
in this manner also. Although the 
languages vary, actual 
programming techniques are 
seldom much different; so you'll 
learn from the other programs, 
even though they may not fit 
directly into your computer. 
Eventually you may even want to 
try converting a program from 
another computer to your own, 
and we'll provide as much 
information as we can about the 
differences in language to help you. 
In the meantime, you'll still have 
the best programs we can bring 
you specifically for your machine. 

Another advantage you may find 
with the new format is that it will 
inspire some cross-fertilization. A 
case in point is with the Mod-Prog 
article this month. When George, 




James and I put our heads 
together, we can occasionally come 
up with something at the fringes of 
being useful. When James 
wondered if Thomas Hanlin's 
programming hint for the TRS-80 
would work with any other 
computers, we tried it, and lo and 
behold, it did! (For the Apple, but 
not the Atari - perhaps explained 
by the fact that Microsoft wrote 
both Applesoft and TRS-80 Level 
II BASIC). We expect that this 
type of occurrence will not only be 
happening in our beautiful 
downtown Milford offices. We also 
hope that a lot of people out there 
will see articles meant specifically 
for one computer and say "Why 
not with mine?" ~ and make great 
new advances that would never 
have occurred if they hadn't been 
seen done on other computers. Of 
course, we'd Hke to hear about this 
type of event so we can share more 
with our readers. 

You will also notice that we've 
expanded our general offerings. In 
addition to regular features on 
graphics, sound, BASIC in general, 
and program reviews, we will 
feature regular columns about 
adventure programs and simulation 
games. In the works for future 
issues, we have several other 
general features that we hope youll 
Hke. 

Concerning direction, we 
promise to keep our content 
understandable. We believe that 
computers are not difficult to use 
unless they are made so. We don't 
want to make any pretensions that 
the use of computers is, or should 
be, an elitist activity. We will gear 
our content toward "everyman" 
(everyperson?), yet there will 
always be underlying information 
available if you have the desire to 
pursue a topic. If you want 
programs that you can key into 
your computer, if you want to 
learn more about how your 
computer works, or if you want to 
learn the details of the art of 
programming, SoftSide will be for 

you. Q 



New products from ... 

• RITAM • ON-LINE-SYSTEMS • SYNERGISTICS 
• SENSATIONAL SOFTWARE 



SYNERGISTIC SOFTWARE 



RITAM 



MONTY 

PLAYS 

MONOPOLY 

"Monty plays Monopoly" is a computer 
opponent program designed to be used 
along with your Parker Brothers Monopoly 
game. You will need the board and all of the 
equipment that comes with the game to use 
this computer opponent program. 

Monty provides a new dimension in 
microcomputer software. You will come to 
know him as simply another player, a bright, 
entertaining guest who provides real 
excitement for many of your favorite board 
games. 



PROGRAM 

LINE 

EDITOR 

Stronger than Integer!!! More powerful 
than Applesoft!!! Faster than a speeding 
cursor!!! Able to leap the longest statements 
in a single move!!! 

The Program Line Editor by Neil Konzen is 
the most sophisticated program 
development tool yet for the Apple II 
computer. Program Line Editor includes full 
feature line editors for both Integer and 
Applesoft programs that render all other 
techniques obsolete. Program development 
and modification can now be completed in a 
tenth the time previously required. The 
package includes a set of versatile user 
definable escape functions. 



HIGHER 
TEXT 

Higher text by Darrell & Ron Aldrich 
provides the display capabilities you need 
when the Apple's text output just isn't 
sufficient. With Higher Text, you can print 
characters in upper case, lower case, upside 
down, sideways and in any color. If standard 
characters still aren't adequate try printing 
in script, Old English, foreign languages, or 
special scientific symbology. Define your 
own specialized or decorative character 
sets, and easily create professionally 
customized displays without any hardware 
modifications. 



SENSATIONAL 
SOFTWARE 



AIR 

TRAFFIC 

CONTROLLER 

Air Traffic Controller retains the basic 
realism of air traffic control. This program 
require^s the same steady nerves under 
pressure and the same instant, almost 
instinctive, analyses of complex 
emergencies which are demanded of a 
professional air traffic controller. But "ATC" 
adds the excitement and well-defined goals 
of a game. This is just a simulation, and all 
passengers left in air traffic limbo by a 
panicked player will live to fly another day. 



ON-LINE-SYSTEMS 

HI-RES 

ADVENTURE 

MYSTERy 

HOUSE 

Through the use of over a hundred Hi-Res 
pictures you play and see your adventure! 
You communicate with HI-RES 
ADVENTURE in plain English. (It 
understands over 300 wor^ls!) All rooms of 
this spooky old house appear In full Hi-Res 
Graphics complete with objects you can get, 
carry, throw, drop, or ??? 

In this particular HI-RES ADVENTURE 
game, you are transported to the front yard 
of a large, old Victorian house. When you 
enter the house you are pulled into the 
mystery, murder, and intrigue and can not 
leave until you solve the puzzles. Your 
friends are being murdered one-by-one.You 
must find out why, and who the killer is. Be 
careful, because the killer npay find you! As 
you explore the house there are puzzles to 
be solved and hazards to overcome. The 
secret passage way may lead you to the 
answer. 



TO ORDER CALL 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 




OUTGOING MAILV 



TlliKE 

DIMENSIONAL 
GRAPHICS 
PACKAGE 



by Tim Hays 



Construct data base 

by entering geometric 

coordinates, tlien 

view from different 

angles. Four 

programs. Low 

resolution requires 

8K, higli resolution 

16K, demonstration 

program, 24K. Atari 

400 or 800. 

$29.95 



TO ORDER 

TOLL FREE 

1.800-258-1790 

(In NH call 673-5144) 



UNDER ATTACK!? 

The warning whistle sounds 
shrilly. Every member of the 
SoftSide staff quickly grabs for the 
nearest support. Some hold on to a 
nearby computer, others reach for 
each other. The anticipated explo- 
sion shakes the entire building. 
Small pieces of ceiling-plaster drift 
slowly to the floor, twinkling in 
the rays of the afternoon sunlight. 
In a few moments, the reverbera- 
tions subside. Bravely and calmly 
the intrepid men and women 
-whose job it is to bring you 
SoftSide each month - return to 
their vital duties (except for a few 
scattered couples whose lives have 
taken on a new meaning in the 
sudden desperate embrace of a 
fellow worker). 

AHen invasion? Nuclear attack? 
Real-life Kriegspiel? What 
devastating forces have been 
unleashed against the innocent yet 
opulent Milford offices of SoftSide 
Publications? 

UNDERGROUND RUMBLINGS 

Fear not, loyal reader; this is 
NOT the END! This is just the 
beginning of a shiny new sewer 
system, urgently needed by the 
burgeoning town of Milford. It 
seems the old one was too small to 
continue to serve the needs of local 
residents, and so a new one is 
being blasted out of the ancient 
New England Bedrock. 

Perhaps it is fitting that the 
explosive changes taking place in 
Milford should coincide with the 
expansion of our own beloved 
SoftSide. With this issue, we take 
a bold step into the future. Many 
of you have asked for a bigger 
magazine, claiming that several of 
your favorite issues have slipped 
into the crack between the 
keyboard and the video monitor, 
never to be seen again. We have 
been moved by your plight! The 
past few weeks have been filled 
with frenzied activity here, as we 
reworked, retooled and redesigned 
the entire magazine. 

The most obvious change, other 
than the larger size, is the 
inclusion of support for one or 



two *'other" computers. Do not let 
this scare you. We plan to 
include just as much **pure 
TRS-80" material as ever - games, 
simulations, articles, Take A Parts 
and programming hints. 

The added advantage to you is 
that when you have gotten all the 
TRS-80 programs up and RUNn- 
ing -when you have wrung the last 
drop of inspiration from that final 
programming hint, there is still 
more! It never hurts to get **off 
your block" and see how the other 
third lives. We will be making an 
effort to document the programs 
in this and future issues in such a 
way that TRS-80 people can learn 
something from **those other 
computers" and vice versa. 

Be honest now; aren't you just a 
LITTLE bit curious about the Atari's 
capabilities for four-part harmony 
- or the fact that the Atari has a 
grand total of sixteen different 
graphic modes? Did you know that 
the Apple has two graphic modes? 
One mode, called "low 
resolution" or just **lo-res", has 
fewer pixels than our own 127 by 
48 grid! Just 40 by ^ relatively 
large boxes can be turned on or 
off. Of course, having 15 colors as 
well as black to choose from can 
make for some eye-catching 
displays, nevertheless. In **hi-res", 
the Apple boasts a resolution of 
280 by 192. 

Except for each computer's 
unique handling of its own special 
features (sounds, graphics, 
joysticks etc.) there is a remarkable 
similarity among the various 
BASICS For those of you who 
use SoftSide as a learning tool, 
think of how proud you'll be when 
the day comes that you can take a 
program written, say, for the 
Apple, and get it running on your 
TRS-80! In fact, if you DO 
succeed in creating a GOOD 
translation of a SoftSide program 
from its original language into 
LEVEL II, by all means, send it 
in. If your version has appeal in its 
own right, you could be on your 
way to fame as well as (a modest) 
fortune!? ^^ 



'•^ 



Put IRV 
on your 

programming 
Staff! 

IRV Is faster than Level H BASIC! More powerful than a speed typist! Able to leap 

ten subroutines at a single bound! 

Input shorthand -- one keystroke can enter a whole line! The feature you liked in 

Level III BASIC and T-Short, now with all keys user programmable. You can even 

turn your cassette player on or off with a single keystroke. 

Relocate a line by simply editing the line number -- renumber lines 

individually. 

Video Editor allows cursor oriented editing of your programs. Just move the 

flashing cursor to the line to be edited and type the corrections, insert 

or delete.* 
IRV comes with manual and auto-repeat on every key. Machine language tape 

$24.95; on disk $29.95 

To Order TOLL FREE 1-800-258-1790 (in nh can 673-5144) 





Galactic Empire: 



Each game: 16K Level II 

Cassette: $14.95 

Special - all 3 on disk 32K $39.95 



As commander of Calactica's Imperial Forces, you must conquer and hold the 

inhabited worlds of the galactic system. Deploy armies, raise taxes and 

conscript soldiers, gather intelligence, manage resources. 



Galactic Trader: 



You have succeeded in uniting the universe Now you are an ex- 
soldier who must scramble for a living as an intergalactic tramp 
freighter Outwit the locals at bartering, struggle with the fuel 
cartel, and outmaneuver the big trading monopolies as you seek 

your fortune. 

Galactic Revolution: 



The emperor is a bungler and is becoming unpopular. Your popularity is a 

threat, and he is seeking to kill you Turnabout is fair play, so you start a 

revolution to unseat him. Will you succeed? 



TO ORDER TOLL FREE 1-800-258-1790 

(In NH call 673-5144) 



Preferred by 
computer 
professionals 
everywhere! 



The 
Green 
Screen 



The BEST green 

screen available! 

Solid, thick green 

plastic with beveled 

edges. Don't confuse 

this with the thin film 

offered by other 

manufacturers. Ready 

to install, self 

bonding, gives 

dustproof seal, 

optically correct with 

no distortion, and 

shatterproof. Fits 

TRS-80 IVIodel I, 

Model 11 and Leedex 

Video 100 monitors. 

$19.95 



TO ORDER 

TOLL FREE 

1 ■800-258-1 790 

(In NH call 673-5144) 



Garon^s GOODIES ^ 



FIDDLING WITH VARPTR 

Another in a continuing series of 
programming concepts for the S-80. 

by James Garon 

As is often the case with new 
discoveries, they seem to leap into 
the minds of several individuals at 
once. A famous example of this is 
the simultaneous invention of 
Calculus by both Sir Isaac 
Newton,in England, and Baron 
Gottfried Wilhelm von Leibnitz, in 
Germany. 

In a similar fashion, the techni- 
que outhned here is based on a re- 
cent discovery made by several 
SoftSide authors. It involves the 
seldom-used and little-understood 
word, VARPTR. Beginning on 
page 8/8 of the Level 11 manual, 
we learn that when VARPTR in 
used with a string variable (as in:) 

LET V = VARPTR(T$) 

the value returned is a memory 
location (or a Function Call Error 
if the string has not been defined). 
Location V contains a number 
from to 255. To see this, just 
type: 

PRINT PEEK(V) 



The number which is printed is 
the length of the string (T$ in this 
case). The next two locations 
(V + 1 and V 4- 2) contain the actual 
address of the first character in the 
string. You can have the computer 
reconstruct this address by having 
it 

PRINT PEEK 

(V+1) + 256*PEEK 

(V + 2). 

The new discovery mentioned 
above involves the deliberate 
alteration of these three locations 
for our own nefarious purposes. 
For example, your program might 
create a graphic display with some 
random (hence unrepeatable) 
elements. It is possible, through 
the use of VARPTR, to save the 
picture in a string array. Later in 
the program, the picture can be 
recreated almost instantly, no mat- 
ter how long it took to draw 
originally. It is even possible, once 
VARPTR has done its magic, to 
save the entire picture to disk or 
tape! 

Let's assume that the picture is 
on the screen. The following 
routine will save the picture in the 
array T$: 



1000 CLEJlR2024:DIMT$(15)sT$«"" 

1010 V=VAB:PTR(T$) 

1020 FOKS Vr64'SET LENGTH TO 64 

1030 FOR I-O TO 15 

1040 S«15360+64*I' ACTUAI* SCREEN ADDRESS 

1050 H=INT(S/256)sL=S-256*H' CONVERf TO HI/LCW BYTES 

1060 POKE V-H,LsP0KEV+2,H" MAKE T$ POINT TO SCREEN 

1070 TS(I)=T$' SAVE IN ARRAY 

1080 NEXT 



If the screen contains only text 
(no graphics), then it is now a sim- 
ple matter to make a printed copy 
of the screen: 

1500 FOR I = TO 15:LPRINT 
T$ (I): NEXT 



It is slightly more difficult to 
redraw a saved screen. This is due 
to the fact that anything PRINTed 
in the last position of the last line 
will cause the screen to scroll, thus 
messing up the picture. Here is one 
approach: 



2000 


CLS 








2010 


FORI=OT014 






2020 


PRINTfI*64,T$(I); 






2030 


NEXT 








2040 


PRINT@960 


pLEFT$(T$(15) 


r63); 




2050 


P0KE16383j 


rASC(RIGHT$(T$(15) 


rl)) 


2060 


GOTO2060 









continued on page SO 



Unlock the Hidden Power 
Of Your Computer! 

Program fast & easy! 

Use ROM routines in your BASIC 
and Assembly Language 

prOQrdmS! ah you need to know is m .. . 




INCLUDES: 



SUPERMAP 

from Fuller Software 

previously sold at $18.95 

TRS-80 

Disassembled 

Handbook 

by Robert Richardson 

previously sold at $10.00 

Hex Mem 

by John Phlllipp 

monitor written in BASIC. 

Z-80 
Disassembler 

by George Blank 



TO ORDER CALL TOLL-FREE 

1-800-258-1790 

In NH call 673-5144 



Guide to Level II BASIC 

and DOS Source Code $19.95 plus $i shipping 



. 



Description of the Contents of the Level II BASIC 

ROM by memory location, by function, and in lesson format. 

Includes several BASIC and Assembly Language programs 

in listing format to examine and use ROM routines. 



^ A SoftSide Publication 




by Ron Potkin 

A Wargamer's delight! Throw away your 

pencils, charts* and dice. Let the computer 

do the dirty work while you concentrate on 

strategy. Kriegspiel II is a much improved, 

two-player version of the original— with 

machine language routines for extra speed. 

Select one of 9,999 scenarios including 

towns, tanks, and terrain. Choose the number 

of mountains (up to 200), then sit back and 

watch as the computer generates your 31 x 

32 game board, sets up the pieces, the towns, 

the mountains and a river. 

Even the weather will become an important 

factor as play proceeds. To win, you must 

enter the Capitol City of your opponent (or 

reduce his fighting strength below half of 

your own). 



KRIEGSPIEL 



Level II 16K$14.95 (cassette 
version only) 



*Combat Resolution Tables, Basic Turn 
Allowances, Terrain Effects Charts, etc. 



To Order 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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A Column of Your Letters 



Dear Sirs: 

I just had to write to let you 
know how much I enjoyed the 
"Galaxy Combat 11" program in 
this month's issue. The graphics are 
just great and I really get quite a 
kick out of watching the Base 
planet revolve. Mr. Case is quite 
imaginative. Hope he keeps up the 
great work. 

While playing, we (the 
neighborhood kids and 1) were 
confused as to how many pieces of 
the planet killer weapon we had. 
So 1 added a gauge under the 
number of enemy count that tallies 
the weapon pieces. Keeps us from 
scratching our heads wondering if 
we have gotten close to the number 
of pieces needed. 

Now, for an onion! In the May 
issue in the preceeding 
documentation for "... Tholian 
Sector," page 73, someone labeled 
the diagram of the Enterprise 
wrong. The impulse engines, as 
every Trekkie knows, are located 
on the rear of the saucer section - 
not at the ends of the warp 
engines. The two systems were 
purposefully separated so that the 
saucer section could be used as a 
lifeboat in an emergency. The 
saucer can jettison the secondary 
hull and can accommodate the 
entire crew as a lifeboat. 
Conversely, the secondary hull may 
be used as a lifeboat should the 
saucer be damaged. Each part is 
fully capable of independent 
operation. 

Well, keep up the good work. I 
tell every TRS-80 owner I meet 
about Soft Side; I've even 
memorized your address. Can I get 
a commission? 

Sincerely, 
Sherry M. Taylor 

Thanks for the informative letter, Sherry. 
You sure know your Enterprise! Yes, we 
plan to feature more of Phil Case's excellent 
work, possibly in our very next issue. As for 
that commission - your software certificate 
is already on its way for your helpful 
programming hint (originally included in 
your letter, hut now in our Official 
Programming Hints section - right next to 
some hints from Phil Case himself.) Ed 

continued on page 80 
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PROGRAMS FOR 
YOUR COMPUTER 



KINGDOM (CX4102) 

This educational program cassette simulates the 
running of a small agricultural kingdom. Catastrophe 
may befall your people, your food supply or your 
crops. You determine the farming strategy and if you 
are successful you are allowed to reign another term. 
Teaches and develops mathematical skills. 

BASKETBALL (CXL4404) 

You can dribble, shoot, pass, block shots, and even 
make steals. Five different game variations allow one, 
two, three or four players to compete. Play against the 
computer, your family or friends. This game uses up to 
four Joystick Controllers. Cartridge. 

BLACKJACK (CX4105) 

Play one of the most popular casino games at home 
with your ATARI Personal Computer System. The 
computer is the dealer and it plays by the rules. You, 
on the other hand, bet money and decide whether to 
stand, draw another card or double down in your 
efforts to hit 21. One cassette. 

COMPUTER CHESS CXL4009) 

You can play chess against the computer. Eight levels 
of play are available. Moves are made using a Joystick 
Controller. The chess board and pieces are shown on 
the screen. Both "castling" and "en passant" moves 
can be made by you or the computer. The board can 
be set up for a particular chess problem or situation. 
The computer can play either white or black. Uses one 
Joystick Controller. Cartridge. 

STAR RAIDERS (CXL4011) 

A state of war exists between the Atarian Federation 
and the Zylon Empire. Your mission: Destroy all Zylon 
star ships. This strategy and action cartridge features 
four mission skill levels and rates a player at the end of 
each session. Dramatic sounds and screen displays 
make this the most exciting space game available 
today. Your battleground is the entire galaxy. Meteors 
fly through space; Zylon fleets surround and destroy 
friendly star bases, and docking at a starbase enables 
you to receive a new supply of energy and repair 
damaged equipment. For one player; uses a Joystick 
Controller. 

SUPER BREAKOUT (CXL4006) 

This cartridge is a sophisticated version of the popular 
electronic video game BREAKOUTTm^ in which you 
smash through layers of bricks and knock out a wall. 
Four different games are available, up to eight players 
can play, and a rating is displayed at the end of each 
game. You can optionally suspend play or request up 
to five additional serves. This cartridge uses up to four 
Paddle Controllers. 

HANGMAN (CX4108) 

This educational program cassette has 3 levels of play 
— Beginner, Intermediate, and Expert. You play 
against the computer by guessing the word the 
computer has selected. If you do not guess the word 
after six tries the computer will hang your man. You 
may use the computer keyboard or an optional 
Joystick Controller to guess the letter. Suitable for 
ages 8 to adult. 



3-D TIC-T AC-TOE (CXL4010) 

Now you can play Tic-Tac-Toe from a three- 
dimensional perspective. This game cartridge also 
contains Bottoms-Up, a variation of 3-D Tic-Tac-Toe. 
Match wits with the computer or compete against 
another player in either version. One-player games 
feature eight difficulty levels. Uses Joystick 
Controllers. 

VIDEO EASEL (CXL4005) 

You can create a design or pattern on the screen usmg 
the keyboard or up to four Joystick Controllers, then 
watch as the computer expands on the original pattern 
indefinitely. Many variations allow you to create 
imaginative and colorful graphic designs. Options 
include Drawing, Quad Drawing, Life (which uses the 
mathematic principles of John Conway's game of 
"LIFE"), resetting the color and six preprogrammed 
Painting designs. Uses Joystick Controllers. Cartridge. 



AN INVITATION TO 
PROGRAMMING 1, 2, and 3 

These lessons are designed to teach the fundamentals 
of programming in ATARI BASIC. A recorded voice 
asks you questions, waits for you to respond, and 
indicates whether you are correct or incorrect. These 
self-teaching courses will teach you to use BASIC 
programming statements as well as the color, graphics, 
sound and music capabilities of the ATARI Personal 
Computers. Each lesson requires 8K of RAM. 

MUSIC COMPOSERtm (CXL4007) 

Use this cartridge and the computer keyboard to 
compose songs, recreate old tunes, or experiment. 
When you program musical notes through the 
keyboard, you hear the melody as it Is simultaneously 
displayed on the screen. You can change any note or 
the tempo. And you can arrange the music to play 
different sections in the order you choose. Once you 
have entered music, you can save it on the ATARI 410 
Program Recorder or the ATARI 810 Disk Drive. You 
can also write BASIC programs that can convert a 
melody into melody plus harmony. 



BIORHYTHM (CX4107) 

Use this program cassette to calculate physical, 
emotional and intellectual highs, lows, and critical 
days. By giving the computer your birthdate you can 
plot a biorhythm chart on your television screen or 
optional ATARI Printer. 



TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



// 
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Who will take 
complete control of 
the earth? In Global 
War, a highly detailed 
projective map of the 
earth's continent is 
divided into forty 
regions. The 
computer assigns 
each player a portion 
of the regions and 
starting armies. The 
players can allocate 
armies to specific 
regions or attack 
another player's 
territory. 




^ ULSE 



The object of the 

game is to take 

control of the earth. 

This adult strategy 

game for two to nine 

players comes 

complete with 

instruction manual 

and rule book, and 

needs Applesoft ROM 

or Apple II Plus. 

Cassette (32K0 

$17.95; Disk (48K) 

$24.95. 



To order call TOLL FREE l-SOO-258-1790 in nh call 673 5i44 




•••• 



!••••• 
»•••• 








'••••I 



••••< 



••••( 

•••••< 
•••••( 
•••••( 
'•••m 



!••••• 

»••••• 
>••••• 



•••V'. 

•ft??" 



12 



A 16K COMPUTER OPPONENT PROGRAM FOR THE 

APPLE II AND TRS-80. 

"MONTY TM plays Monopoly"* is a computer opponent program designed to 
be used along with your Parker Brothers Monopoly game. You will need 
the board and all of the equipment that comes with the game to use this 
computer opponent program. 

MONTY TM provides a new dimension in microcomputer software. You will 
come to know him as simply another player, a bright, entertaining guest who 
provides real excitement for many of your favorite board games. 
MONTY TM written in machine language, works with a 16K TRS-80 Level II or 
16K Apple or Apple II plus. Cassette $24.95. Diskette $27.95. 

Order TOLL FREE 1-800-258-1790 (In NH call 673-5144) ::•••• 
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S^O PROGRAMMING TIPS ^ 



To make the computer go into 
EDIT mode automatically with 
ALL errors (not just SN or 
SYNTAX errors), add these lines 
to your program: 

10 ON ERROR GOTO 60000 

60000 PRINTTHE ERROR IS 
IN LINE (no.)";ERL;'" 
CODE";ERR/2plus 1 

60001 EDIT. 

Sherry Taylor 
Haines City, PL 



Users of NEWDOS plus may 
have experienced problems when 
using LMOFFSET to save on disk 
a machine language program which 
normally loads into a DOS 
conflicting area. LMOFFSET 
creates a version that loads into 
high memory. It also adds an 
"appendage" which moves the 
entire program back into low 
memory once DOS is no longer 
required for the actual load. The 



difficulty occurs if the program is 
moved into the location where 
NEWDOS patches into the 
keyboard scan (for debounce and 
JKL features). Since two objects 
cannot occupy the same space, the 
result is chaos. Here's the solution: 
Disable the debounce routine by 
pressing and holding down the 
shift-up-arrow during initialization 
(power-up or reset). This will 
deactivate the debounce and re- 
enable the normal Level II 
keyboard routines. 

Michael Stewart 

College Point, N.Y. 



LOWERCASE FOR SUPERZAP 
As many more TRS-80 
programs are being written in both 
upper and lower case, some users 
may prefer to be able to display 
both cases in the ASCII display 
columns of SUPERZAP. 



The following DATA statement 
can be found at line 14150 in 
SUPERZAP 2.0 and at line 32100 
in SUPERZAP 3.0: 

nnnnn DATA 254,91, 48,...,46 

Change this line to read: 

nnnnn DATA 254,1 23,48,.. .,46 

This change will allow 
SUPERZAP to display lowercase 
ASCII characters instead of 
changing them to periods. As the 
display routine "pokes" directly to 
the screen, no lowercase driver is 
necessary with the R.S. lowercase 
mod. With the "normal" mods, you 
may either keep the lowercase 
switch in the "normal" position, 
except to view the lowercase, or 
you may have a driver active and 
keep the switch in the "lowercase" 
position. All other functions of 
SUPERZAP are unchanged. 



Clay Schneider 



continued on page 86 
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FOUR- OH -ONE -SIX 
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FOUR-OH-ONE-SIX- is an S-SO 
article which will be of most 
interest to Level II users - although 
most of the ideas presented will 
also work on disk systems. 



The secret to *'Load and Go" 
SYSTEM tapes. 

One can redirect the RESET 
button and cause machine 
language cassette programs to 
jump directly to their starting 
point without having to type 
'VENTER" after the tape is 
loaded. Both of these magical feats 
may be accomplished by changing 
the values stored in memory 
locations 4016H and 4017H. 

To understand why these things 
can occur, one must first 
understand the function of the two 
memory locations mentioned 
above. These two locations contain 
the address of the keyboard driver. 
They will be referred to using this 
term for the rest of this article. 
When one is in BASIC, the 
keyboard is constantly being 
scanned. This keyboard scan is not 
contained within the Basic 
controller (ROM). ROM finds the 
scan routine by looking at the 
keyboard driver. These two 
memory locations hold the address 
of the scan routine. The ROM 
then JPs to the address contained 
in the keyboard driver. Fortunately 
for us mere programmers, the 
keyboard driver is not located in 
the ROM and is, therefore, 
accessible. 

After a machine language 
program is loaded from tape, the 
prompt '♦?) appears. During the 
time between when you see the 
prompt and when you enter your 
response, the keyboard is scanned 
via the address in the keyboard 
driver. If one uses the ORG 
statement in the 

EDITOR/ ASSEMBLER to write 
into the keyboard driver an 
address other than that of the scan 
routine, ROM will attempt to scan 
the keyboard; however, it will JP 
to the changed address. For 
14 



example, if you locate a machine 
language program at 4AOOH 
(18944 decimal), you could cause 
the program to be accessed 
immediately after the program was 
loaded from tape by putting the 
following subroutine in the 
program: 



ORG 4016H 
DEFW 4A00H 



ORG 4A00H 



;keyboard driver 
;the DEFW will 

flip 
;so that it will 

load 
;LSB first and 

MSB last 
;the rest of the 

program 
;starts here 



To alter the location, change the 
second ORG statement and the 
DEFW statement. The DEFW 
statement writes OOH into 4016H 
and writes 4AH into 4017H. This 
causes ROM to JP to location 
4A00H when it tries to scan the 
keyboard. 

After going into your program 
after tape loading, if you leave the 
keyboard driver pointing to the 
start of your program, the 
program will restart whenever the 
RESET button is used (provided, 
of course, that there is no 
expansion interface). This is 
because the keyboard driver was 
changed so that wlienever the 
RESET button is used, ROM 
jumps to your program. 

In some cases, one niay not 
want to restart the program when 
the RESET button is used. If one 
wants to save buffers that are 
cleared at the start of the program, 
one should again redirect the 
scanning routine by changing the 
keyboard driver. One might use 
the following routine to change the 
contents of the keyboard driver to 
JP to any part of the program 
when the RESET button is hit: 



LD HL,LABEL ;LABEL can 
point to 
;any location in 
your 
;program 
LD (4016),HL ;change 

keyboard drvr. 

By using this method, one can save 
buffers that would usually be 
cleared at the start of a program. 
One can also write directly on 
the screen using an ORG statement 
not set to the start of the program. 
By using an ORG, the screen will 
be written on while the tape is 
loading, not afterwards. The 
following routine writes directly to 
the screen while the tape is 
loading: 

ORG 3COOH ;start of video 

memory 
DEFM 'YOU MAY PUT 

ANYTHING HERE 

THAT YOU WANT.' 
DEFM 'LEAVE BLANKS TO 

FILL UP THE LINE.' 



One can have a very slow clear 
screen by using this method. If the 
messages will not all fit on the 
screen, one may load the screen, 
then the rest of the program, 
and,once again, load the screen 
with different messages. 

We hope you find that these 
subroutines and ideas will enhance 
your programs of the future and 
also help you to better understand 
how your computer works. 
REMEMBER: A program with 
only one ORG goes into only one 
part of the vast computer memory! 



by Robert W. Lord 
and Rajeev Jayavant 
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HOW MUCH COMPUTER ^ 



DO YOU NEED? 



How much computer do you need? 

About six months ago I received 
an irate letter addressed to me 
through SoftSide: Apple edition. 
The letter was from a businessman 
who had just purchased an Apple 
II computer. He complained that 
the salesman had told him that the 
computer would help him in his 
business, so he bought it. But 
when he went back to the business 
with his new **toor', he read the 
manual and found for the first 
time that he also needed programs 
to make it do anything useful. He 
thought he had purchased 
something like a cash 
register or adding machine, when 
in fact he had merely the beginning 
of a computer system. 

My experience with hardware 
salesmen has led me to believe that 
many consider price a major 
obstacle in selling a computer 
system. For that reason, they often 
tend to sell a minimal system 
without explaining that more 
purchases will be needed before 
the customer will be satisfied. 

A few years ago, when I became 
a computer hobbyist, memory cost 
about $100 per K, computers came 
in kits and software was something 
you wrote yourself. The sayings at 
that time were that any working 
computer was by definition 
extensively modified, and that a 
computer hobbyist put a down 
payment on a computer and kept 
buying memory until he went 
bankrupt. Things have changed a 
lot since then. 

Today you can buy a good 
quality complete computer system 
for some purposes for less than 
$1000, take it home, plug it in, 
and use it with little trouble. 
The kicker in the previous sentence 
is the words **for some purposes". 
The real question concerning a 
personal computer is what you 
want to do with it. 

The chief uses of computers in 
the home seem to be arcade games, 
simulation games, word processing, 
computer education, general 
education, hobby programming, 
support of another hobby or job, 



and providing a secondary source 
of income. 

If your interests are limited to 
arcade games, the Atari Video 
Computer System, Atari 400, or 
Mattel's Intellivision are probably 
enough to meet your needs. Most 
of the general purpose home 
computers will amount to overkill 
for this purpose. The Atari 400 
also has enough power to allow a 
minimal amount of computer 
education, general education, and 
support of some hobbies or jobs. 

Beyond that there are really 
three different types of home 
computer systems using the same 
computers as the core of the 
system. These three types are 
cassette and disk based general 
purpose systems, and systems with 
accessories for special applications. 

The first level is the cassette 
based general purpose system. This 
includes the Atari 800, the Radio 
Shack TRS-80 with Level II 
BASIC, and the Apple 11. None of 
the three systems is really complete 
in its minimum configuration. 
With the Atari, you really need at 
least 16K of memory and a 
television set, with the TRS-80 you 
need at least 16K of memory, and 
with the Apple you need a cassette 
recorder, video modulator, and 
television set. (Note: Atari is 
shifting over to supplying 16K of 
memory, but is taking the cassette 
recorder out of the package.) But 
once you have 16K of memory, a 
good tape recorder, and a display, 
all three of these computers are 
good general purpose systems. 
They will support any of the above 
mentioned purposes except word 
processing, special applications, 
and providing extra income. The 
majority of home computer users 
will find their basic computer 
needs met with this type of system 
and the necessary programs. 

The next step up is to move to 
diskette storage. Since the disk 
operating system takes memory 
space, this also means adding at 
least another 16K of memory. In 
fact, 32K of memory is usually 
enough for the TRS-80, with its 



limited graphic ability and 
dedicated screen memory. 
However, since many programs 
written for disk systems tend to be 
more complex and sophisticated 
than programs for cassette 
systems, more memory is often 
needed in the Apple and Atari. 
Many of good Apple disk 
programs assume a complete 48K 
of memory, and since memory for 
the Apple is relatively cheap, any 
Apple user who gets a disk drive 
and a controller card will probably 
want 48K of total memory. With 
the Apple you will also want to be 
concerned about which version of 
Basic you have: Integer or 
Applesoft. Integer Basic has been 
around longer and has had more 
software available until recently. 
Most of the programs are now 
being written in Applesoft, and we 
recommend starting with the Apple 
II Plus, which has Applesoft Basic 
at the same price as the Apple II. 
Either way, you can buy a 
language card if you want the 
other language. In the Atari 800, 
the disk operating system takes up 
lOK of memory and high 
resolution graphics can take 
another 8K, leaving very little in a 
32K machine. At the same time, 
the BASIC cartridge or any other 
cartridge preempts the last 8K of 
memory, so any memory over 40K 
is usually wasted. Therefore, the 
logical memory for an Atari 800 
disk system is 40K. Unfortunately, 
the Atari bus structure has 
problems handling the last memory 
slot, and program reliability is 
significantly less with 40 or 48K 
than with 32K. I personally keep 
32K in my machine at all times, 
with another 8K available for 
programs that require it. 

A disk system adds some extra 
income potential to the features of 
a cassette based general purpose 
system. Without disk storage, a 
programmer is really not 
productive enough to pay for the 
computer easily, much less to 
generate income beyond that. Too 
much valuable time is wasted 

continued on page 58 
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Microsoft Compiler— 
A Review (SSO) 

by James Garon 

A DREAM COME TRUE? 

It has long been the dream of 
many TRS-80 programmers to 
escape the speed limitations of 
BASIC. BASIC is slow because it 
is an interpreted language. That 
means that each time BASIC 
comes to a line of your program, it 
spends most of its time looking up 
the words in that line. Only a 
small percentage of BASIC'S 
attention actually goes to 
performing your instructions. The 
dreamers among us - the speed- 
seekers - have wished for a way to 
eliminate all this repetitive 
interpreting; a way to let the 
potentially fast Z80 chip spend 
ALL its time doing our bidding. 

What we've been dreaming 
about is called a ''compiler". A 
compiler is a special program 
which converts a BASIC program 
directly into machine language. 
The original BASIC program, 
called the "source" program , is 
compiled into a machine language 



REVIEWS 

**object program." The object 
program should theoretically 
perform exactly the same as 
the BASIC source program with 
one important exception: speed. 
Since the compiled object program 
is already in the computer's 
natural language (Z80 machine 
code), no extra time is needed for 
the task of converting words such 
as PRINT, FOR, GOTO, etc. The 
result should be a much faster 
program. 

Is Microsoft's new compiler the 
answer to our dreams? I ran some 
tesft to find out. The preliminary 
manual states that execution speed 
can normally be increased from 3 
to 10 times by compiling. 
However, increases of up to 30 
times are promised if one uses 
integer variables exclusively (either 
by placing a **%" after each 
variable or by using DEFINT). 
Since I am interested in graphics, I 
used the following test program to 
paint the screen white four ways : 



3 CLS 

5 PRINT" (1) SINGLE PRECISION" : PRINT" (2) INTEGER PRECISION" : PRINT" (3) 
SINGLE PRECISION POKE" : PRINT" (4) INTEGER PRECISION POKE" ; : INPUTP 

6 ON P GOTO 10,100,1000,10000 

7 GOTO 5 

10 CLS: FOR Y=0 TO 47 

20 FOR X=0 TO 127 

30 SET(X,Y) 

40 NEXT X 

50 NEXT Y 

60 PRINT@0,; . 

70 G0T05 

100 CLS:F0R Y%=0 TO 47 

110 FOR X%=0 TO 127 

120 SET(X%,Y%) 

130 NEXT X% 

140. NEXT Y% 

150 GOTO60 

1000 CLS:VIDEO=15360 

1010 FINISH=16383 

1020 FOR I=VIDEO TO FINISH 

1030 POKE 1,191 

1040 NEXT I 

1050 GOTO 60 

10000 CLS: VIDEO%=15360 

10010 FINISH%=16383 

10020 FOR I%=VIDEO% TO FINISH% 

10030 POKE I%,191 

10040 NEXT 1% 

10050 GOTO 60 

continued on page 82 
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APPLE III UPDATE 

By now, you should be able to 
see the Apple III at your dealers. 
As we said last month, fear not, it 
doesn't replace the Apple II. It is 
directed at the $4000 and up 
business market and comes 
packaged as The Information 
Analyst, a business system 
containing a Mail List Manager, 
Visicalc III, and Apple Business 
BASIC. It will also be available in 
the future as a word processing 
package. 

There are few additions to last 
month's preview worth noting. Of 
the peripheral capabilities we 
mentioned, there are only four 
expansion slots available to the 
user. However, the Apple III 
already comes with an RS-232C 
compatible serial port, a printer 
interface for the Apple Silentype 
printer, a clock, audio output 
through a 6 bit digital to analog 
converter, video modulator, and 
the disk drive. The Languages 
already announced are Apple 
Business BASIC, Pascal, and 
FORTRAN, which will be 
available in the fall. 

Of specific interest to us at 
Softside, the Apple III will be able 
to use Apple II software. In the 
Apple II emulator mode you will 
not be able to use the full 96K or 
add any of the Apple Ill's 
additional power; the emulator is 
limited to 48K and Apple IPs 
features. This does mean, however, 
that Apple III owners will be able 
to take advantage of the multitude 
of software already developed on 
the Apple II, not having to wait 
like owners of most new systems 
for good software to be developed. 

Applesoft vs. Integer BASIC 

The period of time that it takes 
for significant software to be 
developed on a new system or in a 
new language seems to be at least a 
year. Atari ownei/s will take heart 
in that statement because they are 
still in that waiting period. There 
are a few good items available, but 
software for them is still not overly 
abundant. (A Catch-22 in this 
cycle is that a system itself will 
seldom catch on well until the 



consumer sees that there is a 
quantity of good software 
available, but the software doesn't 
usually come until there are a lot 
of systems sold.) Anyway, such 
had been the case with Applesoft, 
which is in most ways a much 
better language than Integer 
BASIC. (Integer BASIC does offer 
a little more if you Uke 
programming in machine language, 
but you could also buy an 
assembler that would go with 
Applesoft.) I've seen people buy 
the Apple II with Integer BASIC 
rather than with Applesoft for the 
same price because the dealer told 
them that all the software was in 
Integer BASIC. 

Such is not the case anymore. 
Integer BASIC had a good head 
start, but now that Applesoft has 
been around a while, we see that 
most of the new programs are 
either in Applesoft or machine 
language, which is usualy 
compatible with either version of 
the machine. Although we are still 
receiving returns from our June 
SoftSide: Apple survey (which has 
had a great response), our tally so 
far shows that over 94% of those 
responding have Applesoft, or 
both Applesoft and Integer 
BASIC. Although we have been 
running Applesoft and Integer 
BASIC programs in similar 
proportions, we will eventually try 
to phase out Integer in favor of 
Applesoft in this magazine. We are 
still looking for good programs in 
either language, but we expect that 
the current trend will show itself in 
our submissions as more and more 
people use Applesoft in their 
programming. 

Other Things 

Another interesting fact from 
our survey so far is that about 90 % 
of the returns showed systems 
with at least 48K of memory, and 
there were quite a few with the 
Pascal language system. The most 
often-mentioned program in the 
section that asked you to name 
your five favorites was Invaders. 
The generic name 'Adventures' ran 
second, although when named 
most mentioned Scott Adams' or 
Microsoft's, and Sargon was third 



choice. Other favorites were Star 
Trek, Visicalc, SubLogic's Flight 
Simulator, and Three Mile Island. 
Most mentions of Star Trek were 
for the Apple version. You'll 
notice that TSE has added Super 
Invasion, by far the best version of 
the arcade game, to its product 
line. Your voices do not go 
unnoticed. I might add that if you 
see an excellent piece of software 
that TSE does not carry, let us 
know. Sometimes products don't 
find their way to us, and we'd Uke 
to keep our readers informed of 
the best. 

For those of you contemplating 
purchase of Apple's language 
system: Keep your eye on 
Microsoft's Z-80 Softcard. It looks 
like it might offer much more 
power, and the cost is a couple 
hundred dollars less. We'll review 
it as soon as possible. ^^ 

BUGS, WORMS AND 
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UNDESIRABLES 



by Kay Pasa 

There are only a couple of bugs 
to report this month, both minor 
problems with Apple programs. 

In the high resolution drawing 
program in the June issue, add the 
line: 

851NS = 1 

The program was condensed from 
a larger version, and that line was 
inadvertently omitted. 

In the Horse Race program from 
July, there is a minor technicality. 
The program will occasionally give 
you a one to one payoff, meaning 
that you get back the money you 
put down as a bet. This is not a 
very good way to make money, so 
make the following change and the 
lowest payoff will be 2 to 1: 
130FORL=1 T0 5: S = 
INT(29*RND(1)) + 2: R(L) = s: 
NEXT 

Also, in the Pork Barrel 
program in the same issue, line 
number 520 inexpUcably came out 
of our printer as 544. Only the 
electrons know why. |g^ 



The Microsoft 
Z-SO SoftCard. 
New Power for 
Your Apple 11! 

Plug the new Microsoft Z-80 SoftCard into your Apple IItm and start using all of the 
system and application software written for Z-80 based computers. Software that you 
could never use before on your Apple II. 

The SoftCard actually contains a Z-80 processor and lets you switch between the Apple's 
6502 and the Z-80 with simple commands, so you can use software written for either 
processor. 

Starting with Two Software Standards. Versatile CP/M, the most widely used 
microcomputer operating system ever, is included on diskette in the SoftCard 
package, ready to run on your Apple II. 

You get Microsoft's 5.0 BASIC, too, the most powerful version to-date of our famous 
BASIC interpreter. 

PRINT USING, 16-digit precision, CALL, and CHAIN and COMMON are just some 
of the major BASIC features you'll add. Applesoft's graphics extensions are still 
included. 

More Power Down the Line. You can get even more programming power and 
versatility by adding Microsoft's FORTRAN, COBOL, BASIC Compiler and Assembly 
Language Development System. All are available separately to run with the SoftCard 
system. 

And the whole host of CP/M-based business, scientific and educational applications 
can be easily transferred to your Apple with SoftCard. 

The Microsoft Z-80 SoftCard is compatible with most every Apple product from the 
Apple II to the Apple II Plus, Language Card and peripherals. Independent peripherals 
for the Apple are supported as well. The SoftCard package requires a system with 
48K and a disk drive. 

$349 for SoftCard, CP/M, Microsoft BASIC and complete documentation. 



To Order TOLL FREE 
1^800-258-1790 

(In NH call 673-5144) 



jHKWBOfT 



TM Apple 11 is a trademark of Apple Computer, Inc. 

CP/M is a registered trademark of Digital Research. ^ CONSUMER^ PRODUCTS F 
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ATARI doubles product line ^^ 




Atari has just announced 34 new 
software packages, a light pen, 
thermal printer, 80 column dot 
matrix printer, a dual disk drive, 
an RS-232 serial and parallel 
interface, and a modem. 



With the new Telelink I "" 
ROM cartridge, interface module, 
and modem, owners of either Atari 
computer may access the Source or 
other time sharing services. 



The Atari 815 ^^ is a dual 
density, single-sided dual disk drive 
using standard 5 1/4" disks. Each 
diskette holds 160K of data, and 
up to four units can be chained to 
the computer for 1.3 megabytes of 
storage. That is four times the 
capacity of competing computers 
like Radio Shack's model I. 

The new printers are the 822, 40 
column, 37 character per second 
thermal printer and the 825, 80 
column, 50 to 83 character per 
second dot matrix printer. The 822, 
apparently from Trendcom, weighs 
less than 6 pounds and prints 
upper and lower case letters at a 
density of 10 characters per inch. It 
requires thermal paper. The 825 is 
identical to the Centronics 737 and 
gives you a choice of proportional 
or monospaced characters in 
condensed, normal, or elongated 
form. The character set includes 
lower case with true descenders. 

The Atari 850 "* Interface 
Module includes four serial RS- 

continued on page 57 



ATARI EDITOR /ASSEMBLER 



S 



Atari 400/800 ROM cartridge 
Reviewed by George Blank 

The Atari Editor/Assembler, 
due to be released in the near 
future, is an excellent and very 
usable Assembly language 
development system. 

My own experience is with a 
preliminary version, recorded on 
EPROM and documented with a 
photocopy of an early draft of the 
manual, so it is likely that some 
features will change before the 
final version is released. 

The manual is a guide to the 
Atari computers and the particular 
features of the Editor /Assembler, 
not an introduction to assembly 
language programming. If you are 
not already familiar with 6502 
assembly language, you will need 
some other resources. My personal 
bias is that the Heathkit ET-3400 
microprocessor trainer and course 



is one of the best introductions to 
Assembly language. This course 
teaches 6800 assembly language, 
but the instruction sets are similar 
and programming methods are 
about the same in most assembly 
languages. However, for those who 
don't want to spend $300 to learn, 
and who are willing to work 
somewhat harder to understand 
programming, Rodnay Zaks 
*Trogramming the 6502", 
published by Sybex, is a good text. 

The ROM cartridge actually 
contains two programs, EDIT and 
DEBUG. EDIT is used to write, 
edit, and assemble programs, and 
DEBUG is a monitor, tracer, 
disassembler, and mini-assembler. 
The cartridge interfaces directly 
with the operating system and disk 
operating system to avoid 
repeating code and to save 
memory. 



While the assembler can be used 
in an Atari 400 or 800 with no 
other peripherals, the manual 
recommends an Atari 800 with 16K 
of memory, disk drive, and printer 
for maximum utility. The final 
version will support disk storage, 
but may or may not support 
cassette input/output. 

Using the Assembler 

Programs are entered in five 
fields, as follows: STATEMENT 
NUMBER/ LABEL/ 
OPERATION CODE/ 
OPERAND/ COMMENT. The 
requirements for spacing are not 
critical except that a label must be 
separated from the statement 
number by exactly one space, the 
operation code mnemonic must be 
at least two spaces from the 
statement number, and other fields 
require a separation of at least one 



continued on page 57 
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U^ PpplejStQrKl 

^^^^HliMi^p^ ^ ' "''0'-'- ^^^^ ^°"^^'^ o"'v» 


KEY 

1 - Integer Basic 

M - Machine 

Language (Apple 
II or Apple II plus 

A - Applesoft 

ROM -Apple II Plus or 
Applesoft card 
only 


-^"^fS^^fpf^^ 1-800-258-1790 




Your Apple 11* software market from The Software Exchange 



ADVENTURELAND 

Adventure International 

Cassette/24K/M $14.95 

ADVENTURE SAMPLER 
Adventure International 
Cassette/24K/M $5.95 

AIR TRAFFIC CONTROLLER 

Sensational Software 
Cassette/16K/M $9.95 

ANDROID NIM 

Disk/24K/A ROM $1 7.95 

APPEN I TEXT EDITOR 

Muse 

Cassette/1 6K/I $17.95 

APPILOT EDU-DISK 

Muse 

Dlsk/48K/J $49.95 

APPLE 21 

Softape 

Cassette/24K/I $1 5.95 

APPLELISTNER 

Softape 

Cassette/1 6K/I $15.95 

APPLETALKER 

Softape 

Cassette/1 6K/I $15.95 

BASEBALL 

Muse 

Cassette/1 6K/A ROM $14.95 

BEST OF IMUSE 

Dlsk/32K/I $39.95 

BISMARCK 

Disk 48K/A ROM $59.95 

BRIDGE CHALLENGER 

Personal Software 

Cassette/1 6K/M $14.95 

CCA DATA BASE MANAGER 

(Works in conjunction with Visicalc) 

Personal Software 

Disk/32K/A $99.50 ■♦• $2 

COMPU-READ 

Edu-ware 

Disk/48K/A $24.95 

COUNT ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

DAN'S DISK UTILITIES 

Periph. Unl. 

Disk/16K/I $39.95 

DATE STONES OF ^YN 

Tape 32K/A ROM/48K/A $14.95 

Dlsk/48K/A ROM $19.95 



DR. MEMORY 

Muse 

Disk/32K/I $49.95 

DUNGEON CAMPAIGN 

Synergistic 

Cassette/16K/I $12.50 

Disk/32K/I $14.95 

ELECTRIC CRAYON 

Muse 

Cassette/1 6K/M $17.95 

ENGINEERING MATH TAPE I 

Hayden 

Cassette/24K A/16K A ROM . . $14.95 

ESCAPE 

Muse 

Cassette/1 6K/I $12.95 

FASTGAMMON 

Quality Software 

Cassette/1 6K/M $19.95 

FORM LETTER 

Periph. Unl. 

Disk/48K/A ROM $24.95 

FORTE 

Softape 

Cassette/1 6K/I $19.95 

GAME PLAYING TAPE 1 

Hayden 

Cassette/1 6K/A $9.95 

GAME PLAYING TAPE 2 

Hayden 

Cassette/1 6K/A $9.95 

GAME PLAYING TAPE 3 

Hayden 

Cassette/1 6K/A $9.95 

GENERAL MATH TAPE 1 

Hayden 

Cassette/24K A/16K A ROM . . $14.95 

GHOST TOWN ADVENTURE 

Adventure International 
Tape/24K/M $14.95 

GLOBAL WAR 

Muse 

Tape/32K/A ROM $17.95 

Disk/48K/A ROM $24.95 

HIGHER GRAPHICS 

Synergistic 

Disk/32K/I $24.95 

HIGHER TEXT 

Synergistic Software 

Disk/24K/M $35.00 

HI-RES MYSTERY HOUSE 

On Line Systems 

Disk/48K/M $24.95 



INTERLUDE 

Disk/32K/I $17.95 

INVASION OF ORION 

Tape 32K/A ROM/48KA $19.95 

Disk 48K/A ROM $24.95 

MAGIC PAINT BRUSH 

MP Software 

Disk 32K/A ROM $29.95 

MAILING LIST 

Periph. Unl. 

Disk/48K/M $39.95 

MAILING LIST DATABASE 

Synergistic 

Disk/48K/A $34.50 

MAZE GAME 

Muse 

Cassette/1 6K/I $12.95 

MEMO CALENDAR 

Periph. Unl. 

Disk/32K/A ROM $29.95 

MICRO INFORMATION SYSTEM 

Muse 

Disk/48K/M $99.95 

MICROSOFT ADVENTURE 

Microsoft 

Disk32K/M $29.95 

MISSION IMPOSSIBLE ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

MONTY PLAYS MONOPOLY 

Ritam 

Cassette/1 6K/M $24.95 

Disk/32K/M $27.95 

MORLOCS TOWER 

Tape/32K/A ROM/48K A $14.95 

Disk/48K/A ROM $19.95 

MUSIC BOX 

Muse 

Cassette/1 6K/M $12.95 

MYSTERY FUN HOUSE ADVENTURE 

Adventui:e International 
Cassette/24K/M $14.95 

PIRATES COVE ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

PROGRAM LINE EDITOR 

Synergistic Software 

Disk/24K/M $40.00 

PYRAMID OF DOOM ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 



RESCUE AT RIGEL 

Tape/32K A ROM/48K A $19.95 

Disk 48K/A ROM $24.95 

SARGON 

Hayden 

Cassette/24K/M $1 9.95 

SARGON II 

Hayden 

Cassette/24 K/M $29.95 

Dlsk/24/K/M $34.95 

SIDE SHOWS 

Muse 

Cassette/1 6K/I $12.95 

STARFLEET OF ORION 

Tape 16K/I $19.95 

Diskc32K/l $24.95 

STRANGE ODYSSEY ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

SUPER INVASION 

Sensational Software 

Tape 32K/M $19.95 

SUPER-TEXT 

Muse 

Dlsk/48K/M $99.95 

TANK WAR 

Muse 

Cassette/1 6K/M $12.95 

TEMPLE OF APSHAI 

Tape 32K/A ROM/48K/A $24.95 

Disk 48K/A ROM $29.95 

TEXT EDITOR 

Periph Unl. 

Disk/48K/A ROM $64.95 



THREE-D 

MP Software 

Disk/48K/A ROM $29.95 

THREE MILE ISLAND 

Muse 

Disk/48K/I $39.95 

U-DRAW I 

Muse 

Cassette/1 6K/M $17.95 

U-DRAW II 

Muse 

Dlsk/32Kyi.. $39.95 

UNCLE SAM'S JIGSAW 

Muse 

Cassette/32K/A ROM $12.95 

VISICALC 

Personal Software 

Disk/32K/A $150.00 + $2 

VOODOO CASTLE ADVENTURE 

Adventure International 
Cassette/24K/M $14.95 

WILDERNESS CAMPAIGN 

Synergistic 

Cassette/48K/I $14.95 

Disk/48K/I $17.50 

WILDERNESS & DUNGEON 
CAMPAIGNS 

Disk/48K/I $29.95 

WINDFALL 

Edu-Ware 

Tape/32K/A $14.95 

Disk/32K/A $19.95 



BOOKS 

BASIC HANDBOOK 

by David Lien $14.95 + $1 

6502 GOURMET GUIDE & 

COOK BOOK $10.95 + $1 

INTRODUCTION TO LOW 
RESOLUTIONS $9.95 + $1 

LITTLE BOOK OF BASIC STYLE 

by John Nevison $5.95 + $1 




IHPRDSI 

We buy and sell 
used computers 
and peripherals 
fortheTRS-80; 

apple; atari; 

and pet: 



(60D 673-5144 



*TRS-80, Apple, Atari, and Pet are trademarks of Tandy, Apple Computer, Warner Communications and Commodore, respectively 
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CONVERTING GRAPHICS 

j) From One Computer To Another 



A comparative look at the 
graphics commands of the S-SO, 
Apple, and Atari computers. 



by George Blank, 
Mark Pelczarski 
James Garon 
and Rich Bouchard 

One of the most confusing parts 
of converting programs from one 
computer to another is converting 
the graphics routines. At SoftSide, 
we seek to solve much of that 
problem with appropriate pictures, 
but there are a few techniques that 
can make life simpler. Part of the 
problem is the variety of graphics 
modes available. 

The TRS-80 is fairly easy. It has 
only low resolution graphics with a 
128 by 48 display. You can SET 
(turn on) or RESET (turn off) 
using a command of the form SET 
(a,b) where a is the horizontal 
position from to 127 and b is the 
vertical position from to 47. It is 
also possible to treat the TRS-80 
screen as a collection of 1024 
blocks of six squares, 2 wide and 3 
high. You can print graphic 
characters or letters using the 
command PRINT @ x, where x is 
a number from to 1027. There 
are 16 lines of 64 columns, with 
to 63 at the top of the screen and 
960 to 1023 at the bottom. A third 
way is to POKE these characters 
directly into video memory. 
Memory locations 15360 (3 COO 
Hex) to 16383 (3FFF). 

The graphics characters range 
from CHR$(128) (space) to 
CHR$(191) (all six squares lit). 
(Refer to the chart above) 

You can also include control 
characters such as CHR$(24) 
(Backspace cursor) and CHR$(26) 
(Downward linefeed). These 
characters can be placed on the 
screen individually or combined in 
a string. Yet another trick is to 
leave a string full of spaces in a 
program, locate that string with 
the VARPTR (variable pointer) 

22 



ujLiJaJLijiijm 

m 123 130 131 132 133 134 135 138 137 138 139 140 141 142 143 

iiiniiyaBaBifiii 

144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 

isagnsaiiHiiiiii 

160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 

iSBIIBIIIiaillll 

176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 



function, and then POKE the 
graphics variables into the string. 
Radio Shack Level II Basic also 
includes a STRING$(a,b) for 
indicating several characters, where 
a is the number of characters and 
b is the particular character. For 
example, STRING$(20,1^) would 



print a line 20 characters long with 
the two center blocks of each 
character turned on. 

Here are some sample programs 
to put a small box in the center of 
the screen. 



10 FOR X = 50 TO 71: SET{X,19) : SET(X,28) : NEXT X 

20 FOR Y = 20 TO 27: SET(50,Y) : SET(51,Y) : SET (70, Y) 
SET (71, Y) : NEXT Y 

10 PRINT§ 409, CHR$(188)?STRING$(9,140);CHR$(188) 

20 PRINTTAB(25) CHR$(191)? TAB(35) CHR${191) 

30 PRINTTAB(25) CHR${191); TAB(35) CHR$(191) 

40 PRINTTAB(25) CHR$ (143) +STRING$ (9 ,140 ) +CHR$ (143) 



10 POKE 15769,188 

20 FOR X = 15770 TO 15778 

30 POKE X, 140 : POKE X + 192, 140 

40 NEXT X 

50 FOR X = 15833 TO 15897 STEP 64 

60 POKE X,191 : POKE X + 10,191 

7 NEXT X 

80 POKE 15779,188 : POKE 15961,143 ; 



POKE 15971,143 



10 CLEAR 500 : N$=CHR$ (26) +STR1NG$ (11 ,24) 

20 A$ = CHR$(188)+STRING$(9,140)+CHR$(188)+N$+CHR$(191) 
+" "+CHR$(191)+N$+CHR$(191)+" "+CHR$ 

(191)+N$+CHR$(143)+STRING$(9,140)+CHR$(143) 

30 PRINTi 409, A$ 



Apple Graphics are somewhat 
more complex, with two graphics 
modes and colors. Low resolution 
has a 40 by 40 display in 16 
colors and high resolution has a 
280 by 160 display with 6 colors. 

To enter low resolution graphics, 
you use the command GR and 
specify the position of the point to 
be plotted in a range of 0-39, both 
horizontally and vertically. Colors 
are chosen with the command 
COLOR =x, with the following 16 
possibilities for x: 



Black 

1 Magenta 

2 Dark Blue 

3 Purple 

8 Brown 

9 Orange 

10 Grey 

11 Pink 


4 Dark Green 

5 Light Grey 

6 Medium Blue 

7 Light Blue 

12 Green 

13 Yellow 

14 Aqua 

15 White 



The lo-res graphics commands are: 

PLOT X, Y which sets the point 
X, Y to the most recent color. 

HLIN XI, X2 AT Y which 
draws a horizontal line from (XI, 
Y) to (X2, Y). 

VLINY1,Y2, ATX which 
draws a vertical line from (X, Yl) 
to (X, Y2). 

SCRN (X, Y) returns the 
number of the current color at 
point X, Y. 

To enter the high resolution 
mode, you use the command HGR 
and enter the point to be plotted in 
a range of to 279 horizontally 
and to 159 vertically. Colors are 
selected with the command 
HCOLOR = X with x selecting the 
following colors: 



Black 


4 Black 


1 Green 


5 Orange 


2 Violet 


6 Blue 


3 White 


7 White 



The hi-res graphics commands 
are: 

HPLOT X, Y which sets the 
point at X, Y to the current 
HCOLOR. 

HPLOTXl, Y1TOX2, Y2 
which draws a colored line from 
point (XI, Yl) to (X2, Y2) 

Both high resolution and low 
resolution graphics modes allow 
four lines of text at the bottom of 
the screen. It is possible to 
override the text window and 
extend the vertical resolution to 48 
lines in lo-res and 192 lines in hi- 
res, but you lose all text, since text 



and graphics cannot be mixed. To 
eliminate the text window, 
POKE-16302, 0. To restore the 
window, POKE-16301, 0. 

In addition, the Apple also has 
commands that allow you to use a 
prepared **shape table" of 
previously specified patterns. The 
shape commands are: 

DRAW N AT X, Y which draws 
shape N at the given point on the 
screen. 

XDRAW N AT X, Y which 
draws the same shape, but reverses 



the colors in those positions 
currently on the screen. 

ROT = X sets the rotation for 
shapes to follow. 

SCALE = X sets the scale for 
shapes to follow. 

Creating shape tables is a 
complex process beyond the scope 
of the present discussion. There 
are programs such as the Magic 
Paintbrush graphics package which 
allow you to create shape tables by 
simply drawing on the screen with 
the game paddles. 



These programs will draw 


our 


box 


on 


the i 


screen of the Apple: 


10 


GR : 


COLOR = 9 


: 


HLIN 15 


,25 


AT 


15 






20 


HLIN 


15,25 AT 


25 
















30 


VLIN 


15,25 AT 


15 
















40 


VLIN 


15,25 AT 


25 
















10 


HGR : 


HCOLOR = 


5 


: HPLOT 


15 


,15 


TO 


15,25 
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HPLOT 


25,15 TO 


25 


r25 
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HPLOT 


15,15 TO 


25 


,15 














40 


HPLOT 


25,15 TO 


15 


,25 
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HGR : 


HCOLOR = 


5 
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HPLOT 


15,15 TO 


15 


,25 


TO 


25, 


25, 


TO 


25,15 TO 


15,15 



The ATARI computer has 
considerably more complex 
graphics. There are basically 3 
text and 6 graphics modes. 
Actually, there are three more 
graphics modes not easily 



accessible to the Basic 
programmer, and the three text 
modes can contain graphics. In 
addition, there are three variations 
on each graphics mode. Here is a 
table of the basic modes. 



Mode 


Type 


Horizontal 


Vertical 


(Full Screen) 


Colors 





Text 


40 


- 


40 


2 


1 


Text 


20 


20 


24 


5 


2 


Text 


20 


10 


12 


5 


3 


Graphics 


40 


20 


24 


4 


4 


Graphics 


80 


40 


48 


2 


5 


Graphics 


80 


40 


48 


4 


6 


Graphics 


160 


80 


96 


2 


7 


Graphics 


160 


80 


96 


4 


8 


Graphics 


320 


160 


192 


(2) 



The difference between the first 
and second vertical column is a 
four line text window at the 
bottom of the screen. If you do 
not want the text window, add 16 
to the graphics mode number to 
override the split screen format. 
Thus GRAPHICS 22 is a full 
screen version of GR.6 with a 160 
by 96 display, 0-159 horizontal and 
0-95 vertical. Actually, that 
overstates the size slightly, as the 
machine initializes with 39 
characters across and you have to 
POKE in the 40 character wide 
screen. This feature is to allow for 
overscan on some TV sets. You 
can also narrow the screen with a 
similar POKE. The reason the 2 
for GR.8 is in parentheses is that 
you really are only entitled to two 
shades of one color. Graphics 9, 
10, 11, and a few special tricks can 
overcome that problem, but they 



are beyond the reach of the current 
discussion. 

The ATARI has 16 colors 
available, each of them in 8 hues 
from dark to almost white, using 
the command SETCOLOR a, b, c 
with a representing one of 5 color 
registers, b representing the color 
from the table below, and c an 
even number from (dark) to 14 
(light). You can change colors on 
the screen without disturbing the 
drawing by simply changing the 
color register for that point. 



OGrey 

1 Gold 

2 Orange 

3 Red Orange 

8 Blue 

9 Light Blue 

10 Turquoise 

11 Green Blue 


4 Pink 

5 Pink Purple 

6 Purple 

7 Blue 

12 Green 

13 Yellow Green 

14 Orange Grem 

15 T%ht Orange 



continued on page 88 23 



ONE LINERS 



=f 



In last month's SoftSide: S-80 
edition in the programming hints 
column, James printed several 
unique graphic programs. What 
made them special is the fact that 
the programs were each only one 
line long. Being a rather 
fascinating idea, we thought it 
would be worthwhile to share the 
concept with the rest of our readers 
this month and see how creative 
you can be. 

The rules are as follows: 

1. The program must be written 
as a single line in BASIC. 

2. The program must be self- 
contained. Do not make any 
assumptions about string storage 
available, graphics modes being in 
effect, etc. 

3. The program should provide 
a continuously changing graphics 
display, as impressive as possible. 



MODPROG 



1 CLSJFORT=lT02STEPO{A=reEK(H4fll))JE=Sa^((<AAM)24)-H)i(AAN^ 
tF=Sl»l( ( («M)f 6)-50 )i( AAMD96) ) }IFX+F<0ORX+F>127C«Y+E<0aRY+EM7l£ 
XTELSEX=X+FJY=Y+E{RESET(X,Y);SET(127-XtY)JSET(X,47-Y)JSET(127-X, 
17-Y) tSET(X,Y) 5IFINKEY$<>CHR$(31)NEXTELSERUN 



Here's a creative example for the 
S-80 by Rich Bouchard: 

This program allows the user to 
create graphic displays. The 
program starts by turning on the 
four graphic points at the corners 
of the screen. The dot in the upper 
left will start to flash. You can 
move the dot with the arrow keys, 
and all four dots will move also, 
forming a symmetrical pattern. 
Diagonal movement is created by 
holding two keys down; for 
example, the right and down 
arrows. When your masterpiece is 
finished, it may be erased by 
hitting the CLEAR key. 



And here's an example in 
Applesoft by a not-so-creative 
editor. -* 

LIST 

1 mE { m t FOR J = i TO 2 STEP 
Ot FOR K = TO i; FOR I = 
TO 39; COLOR= RND (1) i U 
1 HLIN 0,39 AT IJ COLOR= RND 
(1) tut MLIN 0,39 AT 39 1 
K - 2 « II K + i; NEXT If NEXT 
K J NEXT J 
3 

If you create an excellent one- 
liner, send it in and we might print 
it. Send them to: 

One Liners, c/o SoftSide 

PO Box 68, 

Milford, NH 03055 ^ 
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MODPROG is an SSO program 
for Level II 4 K and up, and an 
Apple program for those with 
Applesoft. 

by Thomas Haixlin III 

Like to be able to change 
PRINTS to LPRINTs, use one-key 
abbreviations for statements, use 
Super Graphics, and quickly find 
every REMark in your program 
with one short BASIC program? 
Modprog will do all this and more 
in just three lines (Four for Apple 
users.) 

How to use it: load your pro- 
gram into memory and type in 
Modprog. (The lowest line number 
in your program must be 4 or 
higher.) Modprog must be the first 
four lines in memory, so don't 
change the line numbers! RUN 
Modprog. To change one com- 
mand to another throughout the 
program (PRINT to LPRINT, 
SET to RESET, etc.), look up the 
values of the commands in the 
chart and enter them when 
24 



prompted. Modprog takes it from 
there. To find a character/ 
statement (REM, etc.) without 
changing anything, just enter the 
appropriate code twice. Line 
numbers are listed automatically. 
To change **N" to **NEXT", etc., 
use the ASCII value of the letter 
(see the chart on page C2 of your 
LEVEL II BASIC USER'S 
MANUAL) as the number to 
change. Note that this letter will be 
changed throughout the program 
"including, if you're not careful, 
REMs, PRINTS, and variables! To 
get Super Graphics, use a character 
in the PRINT statement that isn't 
used anywhere else in the program. 
Search with the ASCII value of 
that character and change it to the 
appropriate graphics character 
code. When Modprog 's done, 
DELETEO.3 and RUN, CSAVE or 
SAVE your program. 

How it works: BASIC program 
lines are stored in memory starting 
at location PEEK (16548) 
-h256*PEEK(16549) in the format: 



X - Y - A - B - instructions - - X 
. . . where X -h Y*256 is the 
memory location of the two 
locations preceding the next line 
number and A+ B*256 is the 
present line number. When X and 
Y both equal zero then there is no 
next line - you're at the end of the 
program. So . . . Modprog line 
starts at the beginning of program 
memory, advances the line counter 
four lines so it doesn't try to 
modify itself , and INPUTs the 
character /statement to change and 
what to change it to. Line 1 finds 
the number of the line being 
looked at and the location of the 
two locations preceding the next 
line number (which is also the first 
location past the end of the line), 
and search-loops from the 
beginning to the end of the line. 
Line 2 continues that loop. Line 3 
sets things to search the next 
program line and determines 

continued on page 70 



HI RESOLUTION 
DRAWING 

Connect any points on 
the screen, fill areas, 
paint with a set of nine 
"brushes" (or define 
your own), and 
draw with, plot, 
rotate, and scale 
shapes that 
you define. 
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SHAPE 

TABLE 

DESIGNER 



Design shape tables with 
keystrokes or paddles. 

Also included are Applesoft 

Invaders and Slot Machine -— 

colorful variations of well-known 

diversions whose graphics were 

created with this package , and 

instructions for saving graphics 

on disk and putting them in your 

own programs. 
32K Applesoft ROM . $29.95 on 
diskette 



"Tired of Disk 

Errors? Stop 

blaming your 

drives . . . 

FIX YOUR DOS!!!" 

NEWDOS 

BYAPPARAT 



NEWDOS 



NEWDOS corrects over 70 errors and omissions in TRSDOS2.1 
and disk BASIC, yet they are completely compatible! Programs 
SAVEd under either system need no modification to work with the 
other. Like going from Level I to Level II; more power, convenience 
and speed. Use all DOS commands (DIP, FREE, RENAME, COPY 
etc.) from BASIC, AUTO LOAD and RUN a BASIC program from 
power-up, produce variable and constant cross reference tables, 
OPEN "E" to add to the end of a sequential file, send whatever is on 
the screen to your-printer, even in DOS (great for DIR), renumber 
BASIC programs, and more . . . Fully documented; available on disk 
for only $49.95 



NEWDOS PLUS 



ALL of the above PLUS: Editor/Assembler for disk, Z-80 
Disassembler, LMOFFSET to relocate and save SYSTEM tapes to 
disk, Level I BASIC language withdisk I/O, DIRCHECK to check and 
LIST disk directory, SUPERZAP-display/print/modify any location 
in RAM or on disk (worth the price of the entire package when you 
resurrect that accidentally KILLed file!). NEWDOS+ on disk with 
documentation, just $99.95 



NEWDOS/80 



Brand new from Apparat, their most powerful DOS ever. 
EVERYTHING in NEWDOS and NEWDOS+ and more: Variable 
length records (up to 4095 bytes), mix or match your disk drives: 35, 
40 and 77 track drives can be used in any combination— even with 8 
inch drives, new security boot-up sequence makes it impossible for 
the unauthorized to BREAK or LIST. "DOS READY" and "READY" 
need never appear, enhanced RENUMBER allows relocation of 
subroutines, powerful program CHAINing, option to PRINT on 
display and printer simultaneously, execute DOS commands— from 
DOS— without distrubing your resident BASIC program. Put the 
"DOS" of the Eighties" to work for you. On disk, with all 
documentation. $149.00 

TO ORDER TOLL FREE: 1-800-258-1790 

(In NH call 673-5144) 6 South St., Milford, NH 03055 
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SAILPLANE DERBY 




SAILPLANE is an S-80 
program for Level II 16 K and up. 

by David J.T. Nunn 

The Sailplane Derby program is 
a True to Life' simulation of a 
cross-country sailplane race. 

Competition gliding is carried 
out by enthusiasts in most 
countries of the world using 
sailplanes which are typically of 50- 
foot wingspan, constructed of 
fiberglass reinforced plastic with 
extensive streamlining and costing 
upward of $30,000. They are towed 
aloft by small, powered airplanes 
and released: from then on the 
pilots must rely on rising 
upcurrents of warm air called 
*thermals' to stay aloft. Pilots guide 
their machines across country 
seeking the summer cumulus 
clouds that often mark the top of 
an active thermal and then turn in 
tight circles to stay within the 
confines of the narrow columns of 
rising air, enabhng their sailplanes 
to be lifted upward. When all 
possible height has been gained 
(sometimes by entering the cloud 
capping the thermal), they dart off 
in search of the next active thermal 
on the course line. 

In competition, the task is 
usually to fly from the take-off 
point, around two turning points 
and back home. This triangular 
task is timed; the pilot completing 
the task in the shortest time is the 
winner. 

SAILPLANE 
PERFORMANCE 

A sailplane's performance is 
usually specified as its maximum 
glide angle, typically 40 to 1 @ 50 
mph: for every foot in height lost it 
glides forward 40 feet. However, if 
the sailplane flies faster, then the 
glide angle deteriorates due to 
increased aero-dynamic drag. 
(Flying slower than 50 mph 
worsens the glide angle.) 



SPEED 


40 


50 


60 


70 


80 


90 


100 


* ' m ' 


120 


G.ANGLE 


23:1 


40:1 


34:1 


30:1 


26:1 


24:1 


21:1 


19:1 


18:1 



The table above shows that 
flying at 50 mph will produce 
maximum glide distance. However, 
if the thermals are strong and you 

THERMAL STRUCTURE 



have sufficient altitude, then faster 
progress can be made at 60 to 80 
mph without too large an altitude 
loss. 



The diagram shows a wJJSJD, 

vertical cross section 
thru a typical thermal. 

The arrows indicate relative ^. f^ ,^\j^ 't. /i /^. 

air movements. It will be ... ^'^ I \' < •/ i 

seen that a sailplane entering 
the thermal at (A) will 
encounter strong sinking 

air; then at (B) neutral air . • • -A'J.' 

and finally strong lifting . . ^^ 

air at (Q. The shape of the 
thermal is sometimes called 
a *vortex ring' — similar . . 

to the smoke rinp 

produced by extrovert 

smokers! Ti^riK. 




CORRECT 
^SPEEDTOFLY' 

When a sailplane flies through a 
sinking or rising air mass, its 
airspeed should be adjusted in 
accordance with the following 
general rule: 

1. If the sailplane is in sinking air, its 
speed should be increased. 

2 . If in rising air, the speed should be 
decreased (usually to a minimum of 
50 mph). 

At first glance, this rule seems 
illogical. However, the reason is to 
ensure that, in the case of sink, the 
sailplane is subject to the sink 
effect for the minimum 'period of 



time', thus reducing the 'total' loss 
of height; and the converse for 
lifting air. It should be noted that 
the exact quantity of each speed 
adjustment can only be learned by 
experience, although mathematical 
treatments for the problem have 
been derived by several experts 
including Dr. Paul MacReady 
(lately of Man Powered Flight 
fame). 

It may be necessary to increase 
the airspeed of the sailplane if you 
are attempting to 'penetrate' into a 
strong wind. Consider the table set 
out below: 



SPEED 


40 


50 


60 


70 


80 


90 


100 


110 


120 


G.ANGLE 


9:1 


20:1 


21:1 


20:1 


18:1 


17:1 


16:1 


15:1 


14:1 



The table above shows the 
dramatic effect of glide angle (over 
the ground) of a sailplane heading 
directly into a 24 mph wind - the 
strongest the simulation is likely to 
inflict on you. You must remember 
that, although the angle through 



the air is still the same as shown in 
the first glide angle chart, the 
distance covered 'over the ground' 
is greatly reduced. You can also see 
that it pays to fly faster, say at 60 
or 70 mph, to achieve maximum 
distance over the ground. 
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FLYING IN CLOUD 

It is possible to climb much higher 
in a thermal by allowing your 
sailplane to be drawn up, while still 
circling, into the cumulus cloud 
above. When in cloud, your turn 
indicator and compass are invaluable 
in maintaining control and ensuring 
that the exit from the cloud is made 
on the correct heading. 

It is important to note that both 
thermal strengths and cloud base 
heights rise during the day to a 
maximum in the early afternoon. 
So it is in the simulation; therefore, 
better progress may be made later 
in the day in the better weather 
conditions (see later section on 
launch times). 

DESCRIPTION OF 
OPERATION 

The simulation program runs as 
follows: 

1. Either you or the computer sets the 
weather 

2. Input number of players 

3. Input players names 

4. A meterological forecast will now 
be printed. You should particularly 
note the thermal strength and wind 
speed and direction as weak thermals 
coupled with a strong wind make 
progress into wind very difficult. 

5. The players are now invited to 
either accept a launch half an hour 
after the first thermals have 
developed or request a deferment of 
the launch for one or two hours 
(enter 0,1, or 2 as required). 

If either a long distance flight is 
anticipated or the period of time 
thermals will be produced is short, 
then acceptance of an immediate 
launch is advisable. If not, a faster 
flight can be achieved by deferring 
the launch and thereby using the 
strongest thermals only available 
during the middle of the day. 
(Note: During the last two hours of 
the day the thermal strengths start 
to diminish before disappearing 
altogether.) 

6. The program now requests 
coordinates of the two turnpoints 
around which the triangular task is 
set. You are launched at position 
X=20 and Y=20, and the location 
of the turnpoints are to be in the 
range X=10 to 70, Y=10 to 70. 

It is suggested that as a 
beginners task the first turn be at 
X=50 and Y=50; the second turn to 
beat X=50and Y=30. 

7. The program now produces the 
cockpit graphic display and 
requests the first player to 
commence the task. 



YOUR SAILPLANE'S 

INSTRUMENTS 

Your sailplane is equipped with 
the following instruments: 

1. ASI (located top left): Stands for 
air speed indicator — your speed is 
limited to the range 40 to 120 mph. 

2. ALT (located bottom left): 
Displays your altitude above 
ground level in feet. 

3. COM (located top center): 
Compass gives standard 360° 
compass readout (360°^North, 
270°=West, 180°=South, 90°=East). 

4. V-V (located center): This is the 
most important instrument you 
have. It is the variometer, the 
instrument that shows how fast the 
glider is sinking or rising. An 
analog (needle type display) is 
provided. However, you will find 
that the digital display below is 
more accurate. A reading of +1 
indicates a climb rate of 100 feet 
per minute and -3 indicates a 
descent rate of 300 feet per minute. 

5. T&S (located to the right of the 
variometer): This is the turn 
indicator which indicates, by both 
analog and digital output, the rate 
of turn (in degrees). 

6. Stopwatch (extreme right): This 
times your flight. The watch starts 
automatically at the beginning of 
the game. However, it will be reset 
if a relaunch (see section on 
commands) is execu^ted. The watch 
is stopped immediately after a valid 
crossing of the finish line occurs. 

CONTROL COMMANDS 

Take special note that operation 
of any of the following control 
commands can only take place 
while the symbol (***) is seen 
immediately to the right of the 
compass. During the period that 
control commands are allowed, any 
combination of commands are 
allowed. 

If your computer does not have 
a numeric keypad, it is suggested 
that the following alterations are 
made to the simulation program: 
Change Line 2000 to read — 2000 
IFA$='Q"THENS(B)=S(B)+10 
Change Line 2010 to read — 2010 
IFA$-"Z"THENS(B)=S(B)-10 
You have made a note of these 
alterations, haven't you!! 



FLIGHT CONTROLS 
(FOR TRS-80 WITHOUT 
NUMERIC KEYPAD) 

[4!= Left turn - is incremented in 3 

degree units for as long as key is 

jressed (up to a total of 90°) 
1 6 J= Right turn - (incremented as 

50ve) 
1 5]= Neutralizes turn control to the 

^raight ahead' position 

jQ = Each press increases the 

sailplane's speed by 10 mph 
fz = Each press decreases the 

sailplane's speed by 10 mph 

FLIGHT CONTROLS 
(FOR TRS-80 WITH 
NUMERIC KEYPAD) 



4 1= Left turn - is incremented in 
3° units for as long as key is 
de pressed (up to a total of 90°) 

|6l= Right turn - (incremented as 

IIBove) 

[s1= Neutralizes turn control to the 
^straight ahead' position 

|8|= Each press increases the 
sailplane's speed by 10 mph 

|^= Each press decreases the 
sailplane's speed by 10 mph 

ADDITIONAL 
COMMANDS 

(D = START BUTTON — Once 
you liave been launched the 
stopwatch timing your flight starts 
to run. If, however, you wish, for 
some tactical reason, to take 
another start, you can fly back to 
behind the start line (so that X and 
Y are both less than 20), and then, 
provided you are below the height 
of 3,28 1 feet, pressing the start 
button will reset your stopwatch to 
zero. Why should you want to go 
to this trouble! Well, the experts, 
always interested in saving minutes 
or even seconds, like to cHmb high 
in a thermal near to the start line 
and then dive across the line at 120 
mph, pressing the start button at 
just the right moment. This allows 
them to decelerate, gaining height 
by converting speed into altitude, 
thereby saving the time taken to 
climb, say, 300 feet in the next 
thermal. That's the theory anyway. 
Oh! Why 3281 feet? Well, for the 
uninitiated, that's equal to 1000 
meters, the height the FAI, the 
international aviation ruling body, 
determines is the maximum start 
height. 
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(t)= This is the turnpoint button. 
In real life the competitors carry 
sealed cameras with which to 
photograph the turns, which are 
selected to be some 
well-known,easily-recognizable 
landmark. In the simulation, all 
you have to do is maneuver your 
sailplane to the correct location 
near the turn and press *T'. If you 
are out of position, an error 
message will be flashed up. Correct 
locations for turning at each turn 
are as follows: 
Turn One: You must be at a 
higher value for Y (than the turn) 
and within 2 units of the value for 
X. 

Turn Two: You must be at a lower 
value for Y (than the turn) and 
within 2 units of the value for X. 
Example: If the first turn of the 
task is at X = 50 Y = 50 then to 
turn correctly you must be at 
Y = 50.1 (or higher) and X = 48 to 
X = 51.9. Also note that as soon as 
you get a 'good turn' message at 
turn one the program shifts all 
further analysis to refer to turn 
two. 

(f)= This is the finish button. 
When you have completed the 
task, having rounded both 
turnpoint s, you head for home and 
the finish line at coordinates 
X = 20 and Y = 20 (your original 
take-off point). When you cross 
the finish line - that is when both 
your X and Y coordinates are less 
than twenty - press *F'. This will 
stop the timer and display your 
landed position back at the 
airfield. 

(r)= This is your relaunch button. 
If, when you are initially 
launched,you cannot find a 
thermal to keep you airborne, the 
relaunch facility will place you 
back at the original launch 
position and height. This will then 
give you a second try at the task. 
Remember that you can only take 
*one' relaunch and that this must 
be taken within the first hour of 
flight. 

(K)= Stands for kill control input. 
If you press this control (you 
should hold it down for around 8 
seconds), the control input routine, 
marked thus ***, ceases to run, 
ensuring a faster overall program 
execution. Of course, you would . 
only use K if certain that control ^ 
inputs would not be required for a 
while - to cancel, just hold down K 
again. 

SUGGESTED PRACTICE TECHNIQUE 
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Unlike most so-called simulation 
programs available today 
"Sailplane Derby" is a fairly close 
model of actual cross-country 
gliding; (the author is an 
experienced glider pilot). 
Therefore,a certain level of skill is 
required for efficient operation of 
the program. It is suggested that 
the following training procedure is 
followed during the first few 
program runs. 

1. Run program. 

2. Define weather with thermal 
strength set at 3 and wind strength 
set at 1. 

3 . Defer launch 2 hours . 

4. Enter any valid turn-point co- 
ordinates (as you will not require 
turn-points for training). 

You will now be launched into a 
favorable meterological 
environment with strong thermals 
and little wind drift. 

You should note that the 
program always initialises one 
strong thermal close to your 
launch position. Therefore, as 
soon as the cockpit display is 
printed, you should commence a 
gentle turn, say to the right, at a 
turn rate of around 25. Also, it is 
a good idea to slow down to 50 
m.p.h. You will now see a 
panorama of the sky moving 
across your field of view. When 
you locate a nearby cloud, that is 
to say one that is both wide and 
high in your field of vision, 
straighten out the sailplane and fly 
in the direction of the cloud. Try 
to point your sailplane slightly to 
one side of this cloud, let us say to 
the left of the center. 

It is essential to understand that 
when you approach the cloud it 
will disappear prior to your arrival 
at the location of the thermal. The 
disappearance is NOT an 
indication that you have reached 
the thermal: therefore, continue to 
glide in a straight line. DO NOT 
TURN AT THIS TIME. 

If the cloud has a thermal under 
it (one in every five has sink!), you 
should notice first a rise in the sink 
rate and then your variometer 
should follow approximately the 
following progression. (The actual 
numbers will vary with the strength 
and height of the thermal). 

Entering thermal 

-2.5 1.5 3 3.2 1.0 -1.0 -2.5 



tt 



Exiting 
thermal 



When the progression has 
reached almost the peak climb rate 
(between the two arrows) apply 
full right turn (90) and you should 
have your glider approximately 
central in the thermal. If you were 
unlucky enough to hit sink, the 
progression of variometer readings 
will be different, similar to those 
shown below. 

Entering sink 
> -1.6 -1.9 -2.8 -3.6 -3.6 

-2.8 -1.9 -1.6'-^ Exiting sink 

The only thing to do here is to 
steer away and try another nearby 
cloud. 

Looking on the bright side, let 
us assume that you are climbing in 
a thermal at the maximum turn 
rate of 90 which indicates a 
complete 360 degree turn in four 
program loops. It is possible in 
this situation that your climb rate 
may be varying (see example of 
variometer readings below). 

Start of 360 degree turn 
C +4.2 -1-4.0 +1.0 +4.1—^ 
End of 360 degree turn 

This occurrence indicates that 
you are not correctly centered in 
the thermal. There are many 
techniques used for centering, the 
most common being the so-called 
'worst heading' method. To use 
this technique wait until the least 
favorable indication of climb 
appears on the variometer, in our 
example + 1.0, then wait one 
program loop until you get the 
next variometer reading which is + 
4.1. Quickly straighten out, and in 
the very next program loop, apply 
full turn in the same direction as 
previously. The effect of this 
procedure is to move the center of 
your circles into a position nearer 
the center of the thermal. 

It is suggested that you fly the 
sailplane in various 
thermals,practicing centering the 
glider and training yourself in 
general flying skills prior to 
actually attempting to fly a set 
cross-country task. You should 
soon gain experience in the 
handling of the sailplane. This may 
take a little time but, once 
mastered,the program will provide 
interest which will not wane as do 
some of the more trivial 
simulations on the market. 



10-30 Titles and Copyright statement. 

10 CLSJPRINTi462tCHR$(23) {"SAILPLANE DERBY" 

20 PRINTe650,"BY DAMID JJ. mi«l,"JFORN=lTaZ70«INEXT 

30 CLSIPraNTe393,"CDJJ,NWW» - LONDONtBllAND, OlPYfaiGHT 197?) 

"IPRINTe591,"( VERSION 3.4 / UTI WL )t"}JFORN=lTO2700INEXT 

40 Dimension arrays; define integer variables. 

40 CLEAR160IOIHTH(30 ,4) ,XY(3) ,^(3) ,My(3) ,X(3) ,Y(3) tHO) ,S(3) ,R< 
3) ,N(3) ,D(3) ,K(3) ♦B$(3) ,L(5) IDEFINTD,N,Q,H,0,F,S,H,U,B,C,P:LC4)= 
1}LC5)=1 
42RAND0H 

44-60 Define user selected weather conditions. 

¥i CLSIPRINT"DO YOU WSH TO MFINE YOUR (Ml HEATHER CONDmOB 
R ACCEPT A RANDOHISED leTHER PATTERN 

1 = ONN 

2 = RAND0H" 

46 PRINT"(1 OR 2)" 

48 «l=INIO$JIFH$=""THBM8 

50 IFI*="2"THei70 

51 inil="r'THEN52EL^46 

52 CLSJPRINT"ENTER THERMAL STI€HGTJ« 

1 = HEi< 

2 = HEDIW1 

3 = STRONG" 

53 INPUT"(1,2 OR 3 TICN ENTER)"|A1JIFA1<10RA1>3TICN53 

54 CLSJPRINT"ENTER MIND SPEED 

1 = 3-5 MPH, 

2 = 7-13 W^, 

3 = 19-25 MPH*" 

55 INPUT"(1,2 OR 3 TJCN ENTER)"|A3IIFA3<10RA3>3T«N55 
57 IF A3=3 THEN A3=5 

m A4=(9-Al)/10JA5=.6IA2=RM[)(6)tGOTO100 

70-80 Define randomised weather conditions. 

70 CLSIPRINT"ONE H»Ofr.*."IAl=WI)(3)JA4=(9-Al)/10l^,A 
80 A2=tND(6):A3=RND(6) 
90 ' 

100-130 



Randomiser selects values for thermals (X 
& Y coordinates, strengths). 

100 FORN=lT030JTH<N,l)=fM)(425)+130t«XT 
110 F0RN=lTO30JTH(N,2)=RND(475)+175JfCXT 
120 FORN=lTO30ITH(N,3)=(RND(5)iAl)+7JNEXT 
130 Q5=0IF2=0 

140-160 Turns one thermal in every five into 
sinking air on a random basis. 

140 FOra^lTO30tTl=RND(5) 

150 IFTMTHENTH(N,3)=INT<TH(N,3)i-.6) 

160 lOTN 

170 Ensures there is at least one thermal within 

gHding range of the start by loading a 
thermal into front of array, using a very 
limited set of conditions for the 
randomiser. 

170 TH(14)=^M)(120)-H40ITH(l,2)=Ri)(120)+140ITH(lt3)=(RND(5)iAl 
)+7 

180-200 Sets the vertical centroid of the thermal 

above ground level into the last line of the 
thermal matrix. 

180 FOI#=lTO30JIFTH(N,3)<0TICN200 

190 TH(N,4>=RND(A11600)+(A1X500) 

200 NEXTN 

210 IF9=1THEN630 

220 F9=l 



230-270 Enter player's names and set player 

counter. 
230 CLSJINPUT"rilie OF PLAYERS "JPl 
240 IFPK10RPD3THEN230 

250 INPUT"TYPE NAMES OF PLAYER(S)-^ER EACH Pl€SS ENTER "|BI(1) 
260 IFP1=1THEN280ELSEINPUTBI(2) 
270 IFPl=2TtCN280ELSElNPUTB$(3) 

280-450 Print meteorological report. 

280 CLS{PRINT"HErEOROLOGICAL DATA" 

290 PRINT"THERHAL STRENGTH! "I 

300 IFA1=1PRM"HEAK" 

310 IFA1=2PRINT"H00ERATE" 

320 IFA1=3PRINT"STR0NG" 

330 PRINT"CLOUD DEVELORCNT EXPECTED \ "| 

340 PRINT" ISOLATED SUHHER CUHULUS*" 

350 PRINT"HIND \e.OCITY (FROH T« NEST)"} 

360 IFA3=<2PRINT"J 3-5 HPH." 

370 IFA3<5ANDA3>2PRINT"5 7-13 fPI»" 

380 IFA3>4PRINT"I 19-25 MPH," 

390 FA1=1THENPRINT"F0UR HOURS OF COWECHON EXPECTED" 

400 FA1=2THENPRINT"FIVE HOURS OF CONMECHON EXPECTED" 

410 ffAl=3THENPRINT"SIX HOUI« OF CWiyECnON EXPECTED" 

420 TM5-<C1-A4>I10) 

430 PRINT"THEI«IALS EXPECTED TO START AT "}T1}»00 HOURS," 

440 PRINT"MISIBILnY IS EXPECTED TO BE 20 HMSt" 

450 PR]|lTi788,"PRESS ANY KEY TO CONTINUE" 

460 IFA3>4THENT2=RM)(399)H00n3==RND<500)+150tT4==RND(3)iAl+6IFOR 

N=27TO30JTH(N,l)=T2:T2=T2+40INEXTIFORN=2ntl30ITH(N,2)=T3JNEXTIFO 

Wt=27T030 ITH(N,3)=TH(27,3) SNEH 

470 AI=INKEYf tIFA$=""THEW470ELSEaS 

480-510 Is launch deferment required if so 

increment A4 and A5. 
480 PRINT"YOU HILL BE LAUNCHED HALF AN HOUR AFTER 
CONDinONS HAVE BECOHE ^MABLE, AT "|Tl*r"30 HOURS."IA4=#H-«05 
490 INPUT"COHPEnT0RS HAY REQUIRE A LATER LAUNCH. THEREFORE F A 
LAUNCH POSTPOHHENT IS REQUIRED ENTER NUMBER OF HOURS OF POSTP 
ONMENT <1 «^ 2), F NONE REQIERED ENTER 0"JT2 
500 FT2<0(I^T2>2THENPRINT"ENTER 0,1 OR 2"tGOTO490 
510 T2=T2/10JA4=A4+T2:A5=A5+T2 
520/ 

530 Initialise variables for launch of first 

sailplane. 
530 H(l)=3000!HC2)=3000tH(3)=3000;SCl)=60IS(2)=60IS(3)=60!H(l)=6 
OJH(2)=60IH(3)=60JDC1)=45ID(2)=45JD(3)=45JKC1)=3000JK(2)=3000IK( 
3)=3000JX(1)=200JXC2):=200JX(3)=200JY(1)=200IY(2)=200IY(3)=200IR( 
1)=0:R(2)=0JR(3)=0 
540 B=lJTl=0JT2=0n3=OIT4=O 

550-600 Request positions of turnpoints and load 
into memory. 

550 PRINT"ENTER TURNPOINTS (TURN WC HUST BE NORTH OF TURN TWO)" 

560 INPUT"TASKSETTER TO TYPE X CO-CRDINATE OF FIRST TUIWJINTdO 

-70)";U1 

570 II«Vr"Y CO-ORDINATE" IU2 

^0 Bi>UT"TASKSETTER TO TYPE X CO-ORDINATE OF SECOND TURNPOINTCl 

0-70)"}U3 

590 INPUT"Y CO-ORDINATE" IU4 

600 F(Ul<100RUl>70)OR(U2<100RU2>70)OR(lB<lflORU3>70)OR(U4<100RU4 

>70)THENPRINT"ENTER COORDBWTES BETWEEN 10 & 70"IGOTO560 

602 Call up map S/R to indicate positions of 

turnpoints. 
602 CLSJPRINT"TURW:'OINTS ARE DISPLAYED AS CRO^S ON THE FCLLOHI 
NGHAP,"IFORN=lTO4200tNEXT;aS:GOSUB3060JFORN=lTO10000tlCXTJCLS 
610 IFP1=1T«LC2)=1JL(3)=1 
620 IFPl=2Tlf31(3)=l 

continued on page 59 
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A 

Sailing 

Simulation 



CARIBBEAN CRUISING 



by Mark Pelczarski and Jim Klink 

CARIBBEAN CRUISING for 

the Apple works with 16 K 
memory and requires 
Applesoft in ROM 

c 

With this simulation, you won't 
have to worry about flashing screens, 
obtrusive sound effects, being shot 
at, or blasting an opponent out of 
the water. Just sit back and 
maneuver your sailboat around the 
islands. As the winds vary, you'll 
occasionally have to tack as you 
travel into the wind, or change 
your foresail to take maximum 
advantage of conditions. You won't 
have to worry about fatal mistakes; 
you cannot run aground, crash into 
another boat, or rip out your mast 
or sails. The worst that will happen 
is your boat will be drawn in red 
and sit still if you have the wrong 
sail for the conditions. Once you 
have some sailing skill, you may 
even want to try challenging 
someone to a race. 

Sailing a Boat: 

Your boat is equipped with a 
main sail and three different 
foresails: a jib, a genoa (sometimes 
called a jenny), and a spinnaker. 
When you start, the jib will be in 
place. Your control over the boat 
is through the game paddle. The 
knob controls your rudder, and the 
button allows you to change your 
foresail. At the lower left corner of 
the screen (and at the lower right 
for a second boat, if there are two), 
you will see your direction and 
which sail you have in place. Zero 
degrees is north, 90 degrees is east, 
180 degrees is south, and 270 
degrees is west. At the bottom 
center of the screen will be the 
exact wind direction and speed. 
There is also a wind vane in the 
upper right corner. 

A jib is a relatively small 
foresail, and its maximum speed is 
attained when you are travelling 
almost at a right angle to the wind. 
It is still effective with the wind 
behind you, but its capabilities 
decrease considerably as you begin 
to head into the wind. It is the 
safest sail at higher wind speeds, 
30 



and the only one that will work in 
this program if the wind speed is 
over 35 mph. 

A genoa is actually a large jib. It 
works the same as a jib, but with 
high wind speeds it is too large and 
should be replaced with a jib. 

A spinnaker is a very large 
balloon-like sail. It is most effective 
with the wind directly behind you. 
As the wind approaches you from 
a right angle, the spinnaker's 
effectiveness rapidly decreases. 
Because of its size, you should not 
use this sail when the wind speed is 
over 30 mph. 

When sailing, your boat will be 
drawn in the approximate direction 
that you are heading, but you 
should rely heavily on your 
compass reading at the bottom of 
the screen. The screen is drawn so 
that north is at the top. The 
computer will not let you go off 
the edge of the screen, nor will 
hitting the other boat or an island 
affect you. 

When heading into the wind, 
you must tack, or zigzag, back and 
forth to get from one point to 
another. This means you may have 
to change headings several times to 
avoid going directly into the wind- 




('Pathways through the Rum7) 

To keep in the spirit of things, it 
wouldn't be a bad idea to fire up 
your blender to create some 
concoctions that would add to the 
atmosphere of this simulation. I 
just happen to have a couple of 
ideas here: 

The Pina Colada 

The Basics: Pineapple Juice, 
Cream of Coconut (available in 
cans), and Dark Rum. The 
proportions aren't too important - 
usually more pineapple juice and 
less coconut. For a great 
improvement, add vanilla ice 
cream. To make Strawberry 
Coladas, add frozen strawberries; 
for Banana Coladas, add a banana 
or two. In general, throw in 
whatever you want. Blend well and 



serve over ice. A cherry or some 
fresh pineapple adds a nice touch. 
The Landfall 

Throw all of the following (or 
reasonable fascimiles) into a 
blender: Orange Juice, Pineapple 
Juice, Sweet and Sour Mix 
(alternately. Whiskey Sour Mix, or 
Lemon, Lime, and a little sugar). 
Dark Creme de Cacao, Cream of 
Coconut, and Dark Rum. Vanilla 
ice cream also does wonders. I 
usually go heavier on the orange 
juice, and lighter on the sweet and 
sour mix and coconut. Blend well, 
of course, and serve over ice. 

The Morning Sun 

Fill a blender 2/3 with Orange 
Juice. Throw in a Banana or two, 
a couple scoops of Cream of 
Coconut, Vanilla Ice Cream (if 
available), and Dark Rum. Cover 
the blender and turn it on. It also 
goes great with breakfast, minus 
the rum. 

It should be noted that all of the 
above taste just fine without rum, 
so if you have an aversion to 
fermented sugar cane, or are 
under-age, you may still partake in 
these fine offerings. 
Suggested Listening 

To complete the mood, you may 
want to take a run down to your 
local record store to see if they 
have any Steel Band albums. 
Nonesuch Records has one called 
Sounds of the Sun, and I've seen 
others around. An alternative 
would be any album by Jimmy 
Buffett (Volcano, Son of a Son of 
a Sailor, Changes in Latitudes...) 

Mmmm. 




Sailboat's Documentation: 

Variables, in alphabetical 
order:(Note: all subscripted 
variables, except S$, will have 
subscripts of or 1, corresponding 
to boat or boat 1.) 

BC(O-l): Boat Color. BC(0) 
equals 7 (white), and BC(1) equals 
4 (black). 

BD(O-l): Boat Direction, in 
degress off North, as explained in 
the accompanying article. 

BN: Number of boats (players). 
Value will be 1 or 2. 
BR(O-l): Boat Rotation, and 
BS(O-l): Boat Shape. 

These 2 are closely related. There 
are 4 boat shapes (so that as you 
turn, your boat will never appear 
upside-down). Each shape will be 
used in two possible directions, 
giving 8 possible views of the boat. 
Each boat shape is drawn so that 
its X, Y coordinates will determine 
the bow position on the screen. 
The rotations correspond to those 
necessary for the 2 views that are 
used with each shape. Apple 
rotations of 0, 16, 32, 48 
correspond to actual clockwise 
rotations of 0, 90, 180, or 270 
degrees. 
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Shape I 



Shape 2 Shape 3 



Shape 4 



DD: Used in two different ways to 
compute angles. In one case, it's a 
difference of 2 measures. In the 
other case, it's used to determine 
boat rotation. 

FS(O-l): Foresail. Possible values: 
1-Jib, 2-Genoa, 3-Spinnaker, 0-Sail 
is down. 

L: Location in which shape 
subroutine will put data. 

PF: Paddle flag. if waiting for 
boat to put up sail, 1 for boat 1 , 
and 2 if both boats are under sail. 
Because the sail choice is put in 
through the keyboard, only one 
boat's sail may be down at any 
given time. 

S$: Used by initial shape 
subroutine when reading. 

S$(l-3): Sail name. 1-Jib, 2- 
Genoa, 3-Spinnaker. 

SP: Speed, used to compute new 
position. 

T: Whose turn. Counts 0,1,0,1... 



U: Unit distance, set to 4. 
Changing this will cause the 
sailboats to move around the 
screen in larger or smaller steps. 

V: Value poked into memory by 
subroutine that reads the shape 
tables. 

WD: Wind direction. 

WS: Wind speed, varies between 
10 and 40 mph. 

X(O-l), Y(O-l): X,Y coordinates of 
each boat on the screen. X can be 
6 to 273, left to right; Y can be 6 
to 153, top to bottom. 

XN, YN: New X, Y coordinates, 
as they are computed. 



SPitfNPmi 




LIST 

5 REH C.1980 tM3< PaCZMtSKI 
Lines 10,20 cause shape table 
initialization. 
10 GOSUB900 

20 POKE 232,0! POKE 233,28 
Lines 25-45 initialize variables and 
screen. 
25U = 1 
30 DIHBS(1),BR(1),FS(1),BD(1),X 

(1),Y(1),BC(1) 
35 DIM S$(3)JSI(1) = "JIB 

{Sl(2) = "GENOA "5S*(3) = 

"SPI»W<ER" 
^0 PF = 2JW) = INT ( RM) (1) I 3 

60):HS = INT ( RM) (1) I 11 

) +20 

12 H»€ : VTAB 21? PRINT "1 OR 2 

SAILBOATS? "{J GET S»} F S 
$ < "1" OR S$ > "2" THEN 12 

13 BN = VAL (S$) 

15 SCM1= i: HGR 

Line 46 creates blue background. 

16 HCOLQRs 6: HPLOT 0,0! CALL 62 

151 
Line 50-80 initialize more variables 
and draw the boats at starting 
positions. 



50 FOR T = TO BN - 1 

60 FS(T) = 15BS(T) = i:BR(T) = 32 
:Y(T) = 130 + T I 20{X(T) = 
10 + T I 20JBO(T) = 90}BC(T) 
=7-Ti3 

70 HCOLOR= BC(T)5 ROT= 321 DRAW 
1 AT X(T),Y(T) 

80 ICXT 

Line 90 draws the wind vane. 

90 SCAL£= 3: ROT= HD / 5.6255 DRM4 
5 AT 261,20 

Line 100 prints initial text 

information. 

100 HO»C 5 VTAB 21! PRINT "DIR!" 
}BD(0)} TAB( 11)}«HIND DIR!" 
JHD! TAB( 32)!"DIR!"}BD(1)! PRINT 
"JIB"! TAB( 11) 5 "HIND SPD!"} 
MS! TAB( 32) {"JIB" 

Line 105 checks if ESC has been 

pressed. If so, go back to start. 

105 IF PF = 2 AND PEEK { - 1638 
1) = 155 THEN POKE - 16368 
,0! CLEAR ! GOTO 25 

Lines 1 10,1 12 change wind speed, 
plus or minus 1 mph. 

110 HS = NS + INT ( RM) (1) I 3) 
- 1! IF MS < 10 THEN HS = 10 



112 F HS > 10 TCN HS » 10 
Lines 120-150 erase the wind vane, 
choose a new direction in the range 
plus or minus 2 degrees, and 
redraw vane. 
120 HCOLOR= 6! SCM£= 3! ROT= HD 

/ 5.625! DRMi 5 AT 261,20 
130 HD « HD + INT ( RM) (1) K 5) 

-2!FM)>360THENHD» 
M)-360 
110 IF M)< THEN HD = HD + 360 
150 HCOLOR= 7! ROT= M) / 5,625! DRM 

5 AT 261,20 
Line 160 updates the text. 
160 ^AB 21! HT/e 23! PRINT HD!" 

"! HTAB 23! PRINT HS 
Line 165 redraws the islands. 
165 ROT= 0! SCM1» 1! HCOU]R= 1! 

DRAH 6 AT 55,100! DRM 6 AT 
200,75! DRAH 6 AT 80,50 
Lines 1 70-820 repeat for each 
player's turn. 

170 FOR T = TO BN - 1 

Lines 180-200 change the boat's 

direction according to the paddle 

setting. 

180 DD = POL (T) / 25 - 5 
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190 BO(T) = BO(T) + D05 ff BO(T) > 
360 THEN BD(T) = BD(T) - 360 

200 F BD(T) < THEN HXT) = BD 
(T) + 360 

Lines 210-270 check if the sail is 
down, and if so, has a new one 
been selected? The ASCII values 
referred to in lines 230-250 
correspond to J, G, and S, 
respectively. 

210 IFPF< >T THEN 300 

220 W PEEK ( - 163M) < 128 THEN 

m 

225 A » PEEK ( - 16381)J POKE - 

16368,0 
230 IF A = 202 THEN FS(T) ' V, GOTO 

260 
2« ff A = 199 THEN FS(T) =2} GOTO 

260 
250 ff A = 211 THEN FS(T) = 3: GOTO 

260 
255 GOTO 100 
260 VTAB23: HTAB 12'. PRINT " 



III 
t 



270 PF = 2: VTAB 22! HTAB T i 31 + 
i: PRINT S$(FS(T)): GOTO m 

Lines 300-350 check if the paddle 
button is pushed, and if so, take 
down the sail. If PF is already 
or 1, this is skipped. PEEK(T- 
16287) is > 127 if the 
appropriate button is being 
pressed. 

300 ff Pf < >2 0R PEEK (T- 1 
6287) < 128 THEN 100 

310 FS(T) = o:pf = t: VTAB 22: mm 

T I 31 + i: PRINT "DOHN 

":BC(T) = 7 - T I 3 
320 VTAB 23; HTAB ISt PRINT "CHO 

OSESAIL" 
330 PRINT " (J) JIB, (G) GENOA 

(S) SPDWAKER"} 
310 VTAB23MFT = THEN HTAB 

12? PRINT "<-": GOTO 100 
350 HTAB 26: PRINT "->": GOTO 1 

00 
Line 400 computes the difference in 
degrees between the wind and boat 
directions. 

100 D0= ABS (y» - BD(T)): ff DO 
> 180 THEN DO = 360 - DD 

Line 410 computes a base speed. 

110 SP= (MS/ 35) I U 

Line 420 checks if foresail is down; 

if so, the speed is zero. 

120 ff FS(T) = THEN SP = O: GOTO 
600 

Lines 430-470 compute the speed if 
the spinnaker is up. 



130 ff FS(T) < > 3 THEN 500 
HO IF HS > 30 THEN SP = 0:BC(T) 

= 5: GOTO 600 
150 IF DO > 90 THEN SP = O: GOTO 

600 
160 ff DO < 15 THEN SP = .9 « SP 

: GOTO 600 
170 SP = 1800 / DD ^^2 I SP: GOTO 

600 
Lines 500-550 compute the speed if 
the jib or genoa are up. 

500 ff FS(T) < > 2 THEN 520 
510 IF WS > 35 THEN SP = 0:BC(T) 

= 5: GOTO 600 
520 ff DO > 110 THEN SP = O: GOTO 

600 
530 IF DO > 90 THEN SP = 8100 / 

DO "^ 2 I SP: goto 600 
510 SP= (DO/ 300+ .7) iSP 
550 ff FS(T) = 1 THEN SP = SP I 

.8 

Lines 600-630 convert the 
directions to normal trigonometric 
standards and compute vectors for 
change in X and Y. 

600 DD = BD(T) + 90: ff DO > 360 T^ 

DD - DD - 360 
610 00 = DO I 3.11 / 180 
620 YH = X(T) - COS (DO) I SP 
630 YN = Y(T) - SIN (DO) i SP 
Lines 640-670 check the range of 
the new coordinates. 

610 ff YN > 153 THEN YN = 153 
650 ff YN < 6 THEN YN = 6 
660 ff )(N > 273 THEN )(N = 273 
670 ff}(N<6THEN](N = 6 

Line 680 erases the boat. 

680 HCOLOR= 6: ROT= BR(T): SCALE= 
i: ORAHBS(T) AT DfT (X(T)) 
, INT (Y(T)) 

Lines 690-770 compute the shape 
and rotation that should be used in 
drawing the boat with the given 
direction. 

690 DO = BO(T) + 22.5 

700 ffDD>360QRDO< =15TI€N 

BS(T) =3:BR(T) = O: GOTO 80 


710 ff DO > 15 AND DO < = 90 THEN 

BS(T) = 2:BR(T) = 16: GOTO 8 

00 
720 ff 00 > 90 AND DO < = 135 THEN 

BS(T) = 1:BR(T) = 32: GOTO 8 

00 
730 ff DO > 135 AM) DO < = 180 THEN 

BS(T) = 2:BR(T) = 32: GOTO 8 

00 



710 IF DO > 180 AND DO < = 225 THEN 

BS(T) = i:br(T) = 18: goto 8 

00 
750 ff DO > 225 AND DD < = 270 THEN 

bs(T) = i:br(T) = 18: goto 8 

00 

760 if do > 270 and 00 < = 315 t»cn 
bs(T) = 3:br(T) = 18: goto 8 

00 
770 BS(T) = 1:BR(T) = 

Lines 800,810 draw the boat at its 
new location and update the 
coordinates. 

800 R0T= BR(T): H(ML0R= BC(T): drah 

BS(T) at INT m), INT (YN) 
810 X(T) = XN:Y(T) = YN 

Line 815 updates the text. 

815 VTAB 21 : HTAB 5 + T x 3i: PRINT 
INT (BO(T)):" " 

Lines 820 and 830 loop back. 

820 ftXTT 
830 GOTO 105 

Lines 900-990 are instructions, 
which may be omitted if line 10 is 
changed to GOSUB 1000. 
900 HOME : PRINT " C ARIBB 

EAN CRUISING" 
905 PRINT : PRINT " (OR 'PATH 

HAYS THROUGH THE RUM')" 
910 PRINT : PRINT " DON'T HO 

RRY ABOUT RASHING SCREENS," 

915 PRINT "OBTRUSIVE SOUND EFFEC 

TS, OR BEING SHff-» 
920 PRINT ">«ECKED. YOU DON'T H 

AVE TO BLAST ANY" 
925 PRINT "OPPONENTS OUT OF THE 

WiM'f JUST SH" 
930 PRINT "BACK AND SAIL. OR IF 

YOUHISH, CHALLENGE"} 
935 PRINT "A FRIEND TO A RACE AR 

OUM) THE ISLANDS." 
910 PRINT : PRINT " THE INFO 

RIttTION AT THE LOHER LEFT" 
915 PRINT "HILL BE FOR THE HHITE 

SAILBOAT AND" 
950 PRINT "P«)OLE 0. THE INFORM 

AHON AT THE LONER" 
955 PRINT "RIGHT IS FOR TtC BLAC 

K SAILBOAT AND" 
960 PRINT "PADDLE 1. TIC DM. C 

ONTROLS THE RUDDER,"; 
965 PRINT "AM) THE BUHON MIOHS 

YOU TO C»*WGE YOUR"; 
970 PRINT "SAIL, ff YOUR BOAT I 

S SHOM IN RED," 
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975 PRINT "YOUR SAIL IS DWPROP 

RIATE FOR THE HIND" 
980 PRINT "COM)mONS MO HOULD 

vofmn CAUSE" 

985 PRINT "TROUBLE. THE 'ESC' K 

EY LETS YOU H»€" 
990 PRINT "BOTH BOATS BACK TO TH 

E START." 

Lines 1000-1200 put the shape 
table into memory. Discovering 
that most of this data was in the 
range 9-63, I put the initial 
information in decimal into the 
DATA statement at 1030. The rest 
of the data I was able to condense 
by adding 24 to each value and 
using an ASCII character (see pp. 
138-9 in the Applesoft manual). 
The net result was half as much 
data in lines 1 150-1200, where each 
character replaces 2 hexadecimal 
digits. (The same technique could 
have been used in the Invaders 
program in May, had I been 
observant earlier.) Anticipating 
possible questions, the following 
characters appear in lines 1 150- 
1200: '0', the letter, not the 
number; '%', not a 'Z'; and the 
strange blurbs are consecutive 'W's. 
Other characters that may appear 
fuzzy are the number '3' and the 
letter's'. 



FOR 1 = 7168 TO 7181 
READ V: POKE L,V 
NEXTL 

DATA 6,0»H«0, 177.0,81,1 
,2^,1,151,2,160,2 

FOR T = 1 TO 6 

GOSUB 1100 

WXT T 

VTAB 24! HTAB 12J PRINT "<P 
RESS ANY KEY>"}{ GET Si5 RETURN 

READ S$ 

FOR V = 1 TO LEN (S$) 

POKE L, ASC ( HID$ (S$,V,1) 
) -24 
1130 L = L + IJ fEXT V 
1110 POKEL,0JL = L + i: RETURN 

DATA "!AEEEEEE)IMMWH£EE 
EEEEEH33333373+! !A! ! ! ! ! )H»W 
W73* ! ! ^EEE-3MMM73+ ! ! AEE 
EEZ)33MM(73-f! !AEEEZ! )333NHH 
73+!!AEE2!!>3333HH73+!!AEX!! 
!)33333H73+!!AZ!!! 1)33333373 
+" 

DATA "!!!!!! !!)33333333+!! 
!!!!!!)33333333+!!AEE!!!)333 
SWH33+! !!«£!! )33SHM333+!!!! 
^! )3SNNH333-^! ! !AEEEE)SHH7S 



1000 
1010 
1020 
1030 

1010 
1050 
1060 
1070 

1100 
1110 
1120 



1150 



1160 



H33+! !AEZ!EE-J«73HHW3+!AEEEZ 

HO" 
1170 DATA "!X!!!!!!)3333333S+AX! 
!!!!!)3333333S0EX!!!!!!)H»« 

EEZ)33MM(7SOO:AEED;! )333HHH 
7S0EZAEEZ! ! )3333HH7S0EXAEX! ! 
! )33333H7S0AZAZ! ! ! ! )3333337S 
+" 

1180 DATA "!!!!!!!!IH3333333+!! 
!!!!!AH»033333+!!!i!!AQ«HH 
33373+! !AX!AEEMHHHH7H73+! !AE 
EXEE»*I73HH73+! IAEEXIEJW73HH 
H33+!!!AEEZ!H73MM333+!!!!AE 
EZ)3HMm33+! ! ! ! !AEE-4MH3333 
3+" 

1190 DATA "«,MH" 

1200 DATA "!EEAE£i:!)3SHMM7W/AZ 
AEEEEE)SH7SMM3+AEEEEX!A-33H 
WM7H0E!AEEEEZ)SHHSMM3O! !EA 
XE ! E-S73HS7HWt ! EEAZE ! ! )3333S 
7334! ! !AZ! ! ! )333HNH73+!AEEEE 

C. . f hR'Q'OVOiNN/ 1 tit. CtLtifc. C.rBWWfrtrirl 




GEMIA 



Android 
Nim 
for the 
Apple! 




by Leo Christopherson 

Three rows of 

continuously 

animated androids 

and tliree 

executioners provide 

a new dimension as 

you try to beat tlie 

computer at the age- 

oid game of NIM. 

Disk/24K/Applesoft 
$17.95 



TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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PROTOUR 80 



PROTOUR 80 is an S-80 
program for Level 11 16 K and up. 

by David Bohlke 

It is no longer necessary to sit in 
front of your TV screen on 
weekends and drool over the pro 
golfers' pars and birdies. Now you 
can face the same challenge on 
your TRS with PROTOUR 80. 
And with a lot of practice and a 
little skill you can become a 
scratch golfer! 

This links-simulation will 
generate a different random nine 
hole course each time you play. 
Your ball and the tee will be 
displayed on the left of the screen; 
and the fairway and green will be 
constructed towards the right. 
Each player, in turn, will hit from 
the tee to the green. After 
everyone has reached the green, 
each player will putt out. At the 
completion of every hole a current 
scorecard will be displayed. 

Accuracy and club selection is 
very important when you are 
shooting for the green. If your ball 
wanders off the fairway or into the 
sandtrap — you can expect an 
erratic second shot. And if you are 
wild enough to hit the ball off the 



screen, you will be penalized one 
stroke and distance; so you will 
need to hit the ball from your 
original location. 

The direction of your tee and 
fairway shots must be a number 
between 10 and 49. In this 
representation, 10 is due north, 20 
is east, 30 is south, and 40 is west 
(screen reference). For more 
accurate shots, select a direction 
between these cardinal directions. 
For example, to shoot north-east, 
use 15 for direction; and to shoot 
east-north-east, you can try 17. 

Club selection for distance is 
also important. The woods (1-4) 
will hit from about 260-200 yards, 
respectively. The irons (1-9) will 
travel from 200-90 yards, 
respectively. And the wedge will 
give a distance of approximately 
30-70 yards. 

For both direction and distance 
there is always a slight random 
variation. After all, there aren't 
any golfers who hit a perfect shot 
everytime. But with a little 
practice, you should be able to 
reach the green in the regulation 
number of strokes for par fairly 
easily - and better players will be 
able to get close to the cup ( + ), 
allowing a shorter putt. 



As all golfers know, most 
rounds are won or lost on the 
putting green. PROTOUR 80 is no 
exception. You will find the 
contour greens more challenging. 
The green representation will be 
unique for every player since you 
are shooting at the cup from 
different angles. To putt, you need 
only enter the distance oif your 
shot. As a rough estimate, each 
SET position is one unit of length 
- so the entire green is 127 units 
(feet) long. But, in addition to the 
straight line distance, you'll also 
have to take into account the 
contour of the green. A ball going 
down hill, for instance, will speed 
up which means that it needs a shorto* 
distance entered as compared to an 
equivalent level putt. 

Well, enough of my jibberish -it's 
time you tee-up and learn for 
yourself. As a final note, the more 
experienced players should enter 
their names first at the start of the 
game. Then you will always tee off 
first, and the other players can get 
a fairly good idea of direction and 
distance. You can consider this 
*honor' as your handicap. At least 
you won't waste any time looking 
for lost balls! 



I 5-30 Initialization 



5 fe! ixi DAMD mm. COGGCW, lA U JILY 79 nx 

6 REH m PRO TOUR '80 ixi 

7 DEFBfTA-YJCLEARSOO 
20 GO^7000 

30 03109000 



I 7000-7170 Directions 



6999 REH m DIRECHONS m 

7000 CLSJPRINnAB(19)"P R TOUR 8 0"IPRINT 

7010 PRINT" THIS IS A SMLATED GOLF GAHE FOR 1-4 PLAYERS, U 

SING A" 

7020 PRINT»RAND(M.Y GENERATED 9 mi COUR^» EACH HOLE HAS TWO 

INPUT" 

7030 PRINT"CYCLES, E^ PLAYER IN TURN MILL HIT THE BALL FWl T 

HE TEE" 

7040 PRINT"TO W. GREEN* AFTER ALL PLAYERS HAVE REACHED THE ORE 

EN, DCH" 

7050 F'RINT"GCLFER WILL AGAIN IN TURN PUTT OUT ♦ WHEN EACH HOLE I 

SCOM-" 

7060 F'RINT"PLETED, A CURRENT SCORECW^D WILL BE DISPLAYED," 



7100 PRINT" THE ffiTTER PLAYERS MRJLD <ENTER> TfCIR N(^S FI 
RST, SINCE" 

7110 PRINT"THEY WILL ALWAYS K SHOOHNG FIRST. THIS WILL ENABLE 
Tf€" 

7120 PRINT"OTHER PLAYEI» TO GET A BETTER MA OF DIRECTICW m D 
IST^^CE," 

7130 PRINT"IF YOU? FAIRWAY SW)T MISSES THE FAIRJWY OR IM^ IN T 
HE SAM)-" 

7140 PRINT"TR^, THERE IS A POSSIBILITY OF AN ERfWHC ^COND »« 
T. ALSO," 

7150 F'R]IIT"WHEN PUTTING ON T^C CONTOUR GREENS? BE SURE TO ADD A 
LITTLE" 

7160 F'RINT"TO DISTANCE WHEN GOING LPHILL, AND SIBTRACT A LITTLE 
WHEN GOING" 

7165 PRINT"D(M#C[LL. <ENTER:> TO CONTINUE . . ♦"} 

7170 INPUTAIIRETURN 

; 8000-8400 Displays scorecard 

PI (I) contains the nawes of the players 

TT(I) total score for each player (accuMulated) 

Z is the mirtber of holes played 

7999 REH m SCO(€CARD m 
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I 8000-8146 FT ints scorecard lines, hole*, etc. 



aSIPRINT"0 PEN GOLF" 
8010 F0RI=lT09JF1l'INT8Ix5+136,inNEXT 
8050 FtlNTeZM,"? A R"N'PRINTei33,"H0L£ ♦"! 
8060 F'RINTei86, "TOTAL" 

8080 F(lI=lTOFi:PRINTeiil28+256,F'$(I);nT(I)=0Jf€XT 
8100 F0RI=lT(K^IF«^J=lT02iPL+3STEP2 

8110 fmm&in^^MwifCmmmitvExidfi 

8120 F0RJ=1T02XPL+3STEF'2 

8130 PRINTejx6W21,a«f(191)JIOT 

8140 FORI=lT(FL+2JPRINTiIxl28+64,STRING$(63440); 

8H2 IFI=1 ,PRINTeixi28+64,STRING$(63, 188) J 

8144 IFI=2,F'RINT§Iil28+64,STRD«$C63,143)| 

8146 NEXT 

1 8160-8165 Ftints Par for eadi hole 

8160 X=0 IF0RI=lT0ZIF'RINTiIx5+264,TP<I) | JX=X+TP(I) 
8165 PRINTi314,X;:NEXT 

1 8210-8290 Ftints players' scores m scorecard 

8210 F0RI=1TCR 

8220 F0RJ=1T0Z 

8230 TT(I)=n(I)+P(I, J) JPRINTeji5+Iil28+264,P(I, J) } 

8260 F'RINTeiil28+314,TT(I); 

8270 NEXTJ 

8290 NEXTI 

8400 F'RINTe960,"<ENTER:> TO CONTINUE . » ♦",*tINF'UTA$IRETURN 



1 9000-9140 Main qam loop 



8999 REM xii MAIN GA« LmP xxx 

9000 CLSia3SUEJ9200JCLS:K)aB9900 

i9030 loop for nine Mes 

\ TP(Z) is par for each of nir« holes 

9030 F0RZ=1T09 

9032 GOSUE:9800ITP(2)=f 



9050 low for tee-to-9reen for each player 
M,N is location of ball 
PL is the rwrtber of players 
If B=l theri tee is at the top of the screen 



9050 FC12Z=1T0PL 

9055 M=niFB=l,N=RM)(6)4-5ELSEN=RND(6)+35 

i 9060-9070 P(ZZ) records each player's score for each 
\ hole 

9060 S=0IGOSUB9600 
9070 P(ZZ,Z)=P(ZZ,Z)+S 
9080 NEXT 

1 9090-9100 Loop for each player to pi»tt out on green 

9090 FORZZ=lT(FLJS=0JDC=B(ZZ):GOaiB9400 

9092 P(ZZ,Z)=P(n,Z)+S 

9100 NEXT 

9110 KISUE8000 

9120 NEXT Z 

9130 F'RINTi9&0,"<ENTER> FOR MJT^ G^ . ♦ ♦"} 

9140 INPUTAimUN 



I 9200-9225 Inputs the rn.ittber of players and their nawes 

9199 FfM XII INITIALnATION m 

9200 CLS:PRINTCW$(23)tPRINT"G L F"JPRINTIF'RINT 

9205 If«IT"HOM MANY FIAYERS (1-4) "JFltPRINT 

9206 IFPL<lORFl>4,9200 

9210 F0RI=1T0PLJPRINT"NAHE OF PLAYER # ";i}JD#UTP$(I) 
9215 P$(I)=LEFT$(F$(I),ll)J>e(T:PRINT 

9225 mm^ 

\ 9400-^90 Putting Sequence 

9^ REM XII DIRECTICW AND DISTANCE ON FAIRWAY SHOTS xxi 
9400 CLS 



1 9404-9420 ^s contour green 



9404 UD=RND(3)-2JIFUD=0,9404 

9405 YS=26IH=RND(6)+6IHT=0 

9410 FORX=OT0126STEF2:SET(X,YS):SET(X,YS+l)JET(X,YS+2) 

9411 SET(X+l,YS)J^T(X+l,YS+l)JSET(X+l,YS+2) 

9412 IFX:>7aWX<100,9420 

9414 IFHT=0ANDX>20 AND X<70 ANDR»(12)=l,ll)=-iDJHT=:l 

9415 IFlND(HL)=tl,YS=YS+U) 

1 9420-9426 Canutes location of cup (FX md FY) 

9420 NEXTIFX=RND(13)+83:FY=2 

9425 IFPOINT(FX,FY),9430 

9426 FY=FY+1:G0T09425 



I 9430-9436 ^Ts flag and pole 



9430 FORJ=0TOFY-3tSET(FX,J)tfCXT 
9432 FC»1'J=FXT(FX+14I^T(J4)JSET(J,7){NEXT 
9434 F0RJ-lT07f ^T(FX+13, J) :SET(FX+14, J) JNEXT 
9436 F'RINTeFX/2+66,Z,* 



1 9438 CifJ 



location 



9438 reset(fx-1,fy)ireset(fx,fy).*reset(fx+1,fy)jre^t(fx-1,fy+1) 
:reset(fx,fy+i ) jresekfx^i ,fy+i ) 

\ 9440-9442 fio pi.itt necessary (DC is distance to ctf ) 

9440 IFDC>5,945OELSEPRINT096O,"IT'S IN THE CUP !! ??"| 
9442 SET(FX,FY+l)ISET(FX^-l,FY+l)JFORI=lTO2000:^XT.*RETURN 

|9450-9460 SETS ball (variables B,C) 

9450 C=0JB=fX-DC;iFB<O,B=RM)(4) 
9452 IFF'OINT(B,C+2),9460 
9454 C=C+1:G0T09452 
9460 SET(B,C)JSET(B+1,C) 

1 9465-9480 I^JT length of putt 

9464 REM nx PUTHJC ROUTINE m 

9465 F1<INTe896,CW»(3l)| 

9470 PRINT896fl,"<BITER> LEICTH OF FtITT (OEEN IS 127 FEET MM)" 

♦ 

t 

9475 PRINTe896,PI(ZZ)r' 'S FUTT . . ."JJINPUTPP 

9480 IFPP<1«^'>111,9465 

1 9490 Move ball left or right 
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9m IFEJ<FX,HM=1ELSEW=-1 
9492 PH=flJS=S+l 

1 9500-9540 Loop to Move ball on ireeri 

9500 RESET(B,C)JRESET(B+liC) 

9502 IF1>80^^«)B<110,9520 

9503 FHH=-1,9510 

9505 IFP0INT(B+2,C+l),C=C-lJPP4f-RND(3) 

9506 IFPOINT(B,C+2)=0,C=C+i:PF'=PF'+Wi)(3) 

9507 GOTO9520 

9510 IFP0IMT(B-l,C+l),C=C-KPF'=PP-fiM}(3) 
9515 IFPOINT(B+1,C+2)=0,C=C+1IPP=PP+RND(3) , 
9520 B=*+»1IIFB>124,B=12€LSE[FB<3^E!=3 
9530 PH=PMJSET(B,C)JSET(B+1,C) 
9535 IFHH=-1ANDB<3,9460 
95^5 FhH=lANDB>120,9460 
9540 FF-HOPf ,9500 

i 9550-^90 Get another piitt if necessary* else return 
( with the ni-wber of 5trde.es (S) 

9550 IFB=FX OR B=FX-1,9560EL^9465 

9560 RESET(B,C)JRESET(B+1,C)JSET(B»FY+1)JSET(B+1,FY+1) 

9590 RETURN 

! 9600-9684 Hove shots frow tee to green 
N,N is 1^ location of the ball 
S is the rH-wber of 5trcrfc.e5 

9599 REH m HOVE BALL WM^ FAIR-WAY iix 

9600 GOSUB9700 

9602 X=0;Hl=HtNl=NIS=S+l 

9605 ST=0JFPOINT(M,N-l)(M>OINT(H,N+l),ST=Rfi)(4) 

9606 GOSUES9950 

1 9610-9655 loop to Move ball 

9610 Ff^0ORC=0,HH=RINN=CIGOTO9615 

9612 IFRND(R)=R,HH=1ELSEW^0 

9613 FRND(C)=C,NN=1ELSENN=0 

9615 FDR>30,HH=-m 

9616 FDR>20AWC»'<40,NN=-NN 
9620 RESET(H,N)tf€SET(H+l,N) 
9622 PRINTiG,GinPRINT0PS,SI| 
9630 H=H+HHIN=N-NN 

9635 FHr^0,D=O-9-STIGOTO9650 

9637 FNN=0,D=D-5-STJOTTW650 

9638 D=D-10-ST 

9650 FH-:20RH:>125C«N<20RNM5,9680 
9652 SET(H,N)ISET(H+1,N) 
9655 FD>0,9610 



I 9660-9661 Check if on green 



9660 HG=(G-INT(G/64)i64)i2ING=INT(G/64)i3-l 

9661 FH-HG<0 OR N-^<0 OR H-HG>18 OR NH«>9,9600 

I 9662 B(ZZ) is each player's distance to cup 

9662 DC=ABS(10-(H-rC))i5+ABS(5-(N->«)>il2+RND(2){B(ZZ)=OC 

9664 FimJ=lTO3JPRINT0PA,CHR$C3O) ; IFORII=lTO300INEXT 

9665 PRINT§F'A,P$(ZZ)r' IS ON T« GREEN"? JFORn=lTCeOOINEXTJNEXT 
9670 RETUfW 

9^0 PRINTI!PA,"OUT CF BCPOS - PENALTY STROCE"! 
9^RESET(H,N)IRESET(H+l,N)IH=Hl{N=NllFl»ai=lTO20005NEXT 
9684 S=S+1:GOT09600 
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! 9700-9790 Inputs player's club choice 
D is the distarice the ball will travel 
DR is the direction of the hit 

9699 R01 III GET FAIWIAY MH m 

9700 GOSUB9790:PRINTePA,Pf(ZZ)r" <ENTER> aUB CHOICE" JC=0 

9705 PRINT§PA+64,"W0a)(H) d IRON(I) m &m HEDGE(S)»}{PRINTBPA 

♦50,""? 

9706SET(H,N)I^T(H+1,N)IRESET(H-1,N)JRE^(^2,N) 

9710 INPUTC$IFC$="S",D=40+fM)(30)IGOTO9730 

9712 FCIO"I"W«)CIO"H",9700ELSEroSlB9790 

9714 FC$="I"PRINTgPA, "WHICH IRCW (1-9) "?:iNPUTCIGOTO9720 

9716 PRINT«>A, "WHICH Wm (1-4) "?JINPUTC 

9720 C=INT(C):FC<1,9700 

9722 FCI="I"^M)C>9,9700 

9724 FCi="W"^WDCM,9700 

9726 FC$="I",D=(10-C)xl3+80+RM5(20) IGOT09730 

9728 D=200+(4-C)ilO+RND(20) 

9730 GOSUB9790 

9732 FtlNTePA," 10"??PRINTeF'A+64,"40 "?CHR$(136)?CHR1(132)?" 2 

0"? 

9734 PRINTePA+128," 30"? 

9740 F'RINTI?PA+76,"DMCTI[W"?JPRIN1^A+12,"<ENTEK> "? 

9745 INPUTDR?DR=INT(DR):FDR<100RDR)-49,9730 

9750 K)Sl«^790IRETUWI 

9790 FC»?I=PATOF'A+128STEF'64:PRINTiI,CWI(30 ) ? JNEXTJRETURN 

!9800-S^2 SETS fairway and green 
Y is the yards to ci.ip 
P is the par 

9799 REM m CONSTRUCT FAIRWAY m 

9800 Y=260+RND(200)IF'=4 

I 9805 White screen 

9805 FORI=0TO960STEP64JF'RINT§I,STRING$(63,191)??NEXTIB=RND(2) 
1 9806 PA is the FtlNTS locations for inputs 

9806 FB=1,PA=832ELSEPA=0 

9810 X=R'M)(6):iFX=l,P=3JY=150+RND(90) 
9812 IFX=6,P=5tY=490+R^(100) 

9815 T=RND(4)+3JD=12:R=0JIFB=1,C=XLSEC=44 

9816 PRINTi448,"H0LE ♦••?Z?" "?IPRINTg512,"Y/tf«)S"?Y?IPRINTi576,"P 
AR"?P? 

9818 E=3iF'+RND(5)?F=R^©(3)+2 



I 9820-9832 Blacks out fairway 



9820 FB=2,9822 

9821 FCW=CT0C+D?RE^T(RJ)IRE^T(R+l,I)?R'ESET(R+2,I)INEXTIR=R+3 
JG0T09823 

9822 F0RI=CT0C-DSTEP-1 JRESEKR,!) JRESET(R+1 ,1) ?RESET(R+2,I) JNEXT 
IR=R+3 

9823 IFRND(8)=1,C=C+RND(3)-2?FC<1,C=1ELSEIFCM6,C=46 

9824 IFRND(4)=4,D=D+1ELOFR>100,98:» 

9825 IFR<EORRW(T)<T,9820 

9826 IFB=1,C4:+1ELSEC=C-1 

9827 IFD>18,D=18 

9828 IFB=1ANDC>25,C=25 

9829 IFB=2A^C<22,C=22 

^0 IFP=3ANDR:>40,98^ELSEFP=4M)R)'65,9835 
9832 GOTO9820 



! 9835-9860 picks location of greeri arid saridtrap 
G is the greeri PRINT §,* G$ is F-RINT STRirCI 
PS is sandtrap PRINT §1 SI is the PRINT STRING! 

9835 G=INT(Y/10)-6.*X=R-3 

9836 IFG>50,G=G-1:GOT09836 

9840 F0RJ=13T031STEP2:iFP0INT(X,J),9844 
9842 YY=J 

9841 NEXT 

9850 GG=INT(YY/3)i64+(RM)(3)-2)i64-192:iFGG<64C»l*GG>831,9850 

9853 G=G+GG 

9^7 1FB=1,F'S=G-RW)(8)+(RND(2)~3)I64-1 

9858 IFB=2,PS=G-RND(8)+RND(2)i64-l 

9860 FmNTI?G,Gi;jPRINTePS,S$; 

9880 IfB=lPRINT§64,"TEE",*ELSEF'RINT§896,"TEE»l 

9882 RETURN 

1 9900-9979 Cwwon routiries 

9899 REH nx PRINTING STRINGS ikk 

9900 G$==" G G '•+CHRI(26)+STRING$(11,24)+" G + G "-HMi 
(26)+STRING$(ll,24)+" G G " 

9905 S$=CHR$(184)+™$(191)+CHR1(180)+CHR$(26)+STRIW;$(3,24)+CHR 
I(139)+CHR$(191)+CHR$(135):RETURN 

( 9940-9979 Direction imlicators <R and C) for ^ijusim the 
( rtove«erit of the ball in the tee-to-green sequerce 

9940 IFST>0,DR'=DR+(RND(5)-3) JIFDR<0,DR=49EL^IFDR:>49,DR=1 

9950 FW^-100RI^'=30,R=OIC=1JRETURN 

9952 IFW^'=20ORDR=40,R=llC=0tRETWl'N 

9960 IFW<20,DZ=DR-10IGOTO9970 

9962 IFDR<30»DZ=30-DR:GOT09970 

9964 IFDR<40,DZ=DR-30JGOT09970 

9966 DZ=50-DR 

9970 m DZ G0T09971, 9972,9973,9974,9975,9976,9977,9978,9979 

9971 R=3JC=nRETLiN 

9972 R=2:C=i:FfTURN 

9973 R=nC=llR'ETURN 

9974 R=1JC=2JR€TURN 

9975 R*=1JC=3IR€TURN 

9976 R=nC=4:RETURN 

9977 R=llC=7IRf:TURN 

9978 R=i:C=10JRETlf!N 

9979 R'=i:C=15:RETli:N 



NEW RADIO SHACK COMPUTERS 

Radio Shack announced three new computers on 
August L The TRS-80 Color Computer, part 26-3001, 
has 4K at $399; part 26-3002 has 16K (maximum), at 
$599, has an extended Basic in ROM, and uses plug-in 
ROM software cartridges. The processor is a 6809, has 
an RS-232C interface, and an RF modulator for direct 
connection to your TV. Cassette recorder (1500 baud), 
joysticks, and modems are among the options available. 

The Model III is an upgrade of the Model L Part 
26-1061 has 4K at $699, part 26-1062 has 16K at $999, 
and part 26-1063 has 32K and two forty-track double 
density disk drives for $2495. The unit is one piece 
construction with room for two drives internal, and 
possibility of two more external. Lower case and real 
time clock are standard with 16K and up. Most Model I 
software will run, and it has both a 500 baud and a 1500 
baud tape interface. It also has a built in parallel printer 
interface. 

The third computer is a six ounce, seven inch long, 
hand-held computer that sells for $299. It is 
programmable in BASIC, has L9K RAM, and 57 
alphanumeric keys. It also has an optional cassette 
interface for $49. ^^ 
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MASTER'S GOLF 



S 



MASTER'S GOLF— an Atari 
program requiring at least 16 K of 
memory and one joystick 

by David Bohlke 

This version of simulated golf is 
a modification of PROTOUR 80, 
which was written on a TRS-801 
and is described elsewhere in this 
issue. Since both games are 
basically the same, it would be a 
good idea to read the PROTOUR 
80 article first as it describes 
general game play. 

Some of the major differences 
between the two games are the 
color, sound, graphics, and input 
routines utilized on the ATARI. 
You will need to insert a joystick 
into paddle slot No. I. To pick 
your club (wood, iron, wedge), 
push the stick to get the different 
selections; then press the fire 
button to lock in your choice. To 
select your club number and 
direction, push the joystick until 
the value is reached and then press 
the fire button. Direction values 
are the same as on PROTOUR 80: 
North equals 10, East equals 20, 
South equals 30, and West equals 
40. Any number from 10-49 is a 
legal direction entry. The order of 
tee-off will vary with respect to the 
lowest score on the previous hole. 

When everyone has reached the 
green, the putting sequence will 
begin. The player with the longest 
straight line putt will go first. 
However, don't always judge 
successive putts strictly by this 
distance as the contour of the 
green will distort the real distance 
needed to sink the putt. As with 
club selection, just push the 
joystick to input your distance, 
then press the fire button. For a 
rough estimate, the width of the 
green is eighty units (feet). 

The line listing description and 
variable definitions should give you 
a pretty good idea of program flow 
for MASTERS' GOLF. Instead of 
commenting on the program 
specifics, I would like to offer some 
general impressions of writing on 
the TRS-80 and ATARL 
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For those who haven't had a 
chance to program in color and 
with sound — there is no 
comparison possible to a mute 
black and white monitor — my 
TRS-80 has become a dust 
collector since the ATARI arrived. 
Usually it takes about 50% more 
time to write a program and get 
the colors and sounds just right. 
But the end result is well worth the 
effort. 

Graphics on the ATARI are 
much more impressive, thanks to 
the color and resolution (320 x 192 
max). The PLOT X, Y command 
is similar to SET(X,Y) on the 
TRS-80. Instead of a RESET 
command, it is only necessary to 
change the COLOR register on the 
ATARI, then use the same routine 
as in PLOT. To test a plotted 
point, the TRS-80 uses a 
POINT(X,Y) command. On the 
ATARI, the command is LOCATE 
X,Y,Z. Here, X and Y denote the 
location and Z will contain the 
value of the COLOR register. This 
makes it possible to distinguish 
between the various colors used. 
The ATARI also has a D.RAWTO 
command for connecting any two 
points with a straight line. There is 
also a command which will 'fill in' 
a pre-defined shape with a specific 
color. 

String handling on the ATARI is 
a bit more complicated than on the 
TRS-80. It is not possible to 
INPUT strings into an array. 
Rather, the string value must be 
INPUT into a scratch string and 
then packed into the array. Check 
the name input routines from both 
listings for a comparison. 

Cassette save and load 
operations are superior on the 
ATARI. There isn't a volume 
setting to fool with or any plugs to 
constantly pull in and out (as with 
the earher 80's). I've probably had 
only two or three bad loads, but 
I'm not sure if it was the recorder, 
the tape, or the operator at fault. 

The keyboard and edit features 
on the ATARI also have a pleasant 
advantage. There is upper/ lower 
case, reverse video, auto repeat, no 
keybounce, and about 30 special 



characters. Editing is convenient 
with versatile insert/ delete 
commands. It is even possible to 
alter line numbers without 
changing the line statement. 

There are several minor 
differences in the general BASIC 
statements. The ^j^rj ^q^^ ^qi 
support an ELSE clause on the 
IF.. .THEN statement. But it does 
have GOSUB var. and GOTO var., 
which can be handy. Also, the 
ATARI does allow the 
abbreviation of statement 
commands. Another nice feature is 
that a program can be 
CONTINUED after a BREAK and 
an error correction. 

It is probably too early to judge 
the manufacturers' support. 
However, I did receive in two 
separate mailings a Reference 
Manual and an Introduction to 
Basic Programming tape which 
were not ready for distribution 
when I bought the machine. That 
seems like a good indication. 

Perhaps my earlier comment is 
the best recommendation I have 
for the ATARI - my TRS 80 is 
getting dusty (but hopefully not 
rusty). 



1 R01 MASTERS' GOLF 

2 REn b» DiMid Bo^Hke 
20-50, 66 
initialization 

G(40) holds contour of green 

B$(7) scratch string 

N$(20) holds names of four players 

N(4) length of players names 

F(9) par for nine holes 

S(4,9) each players score for each 

of 9 holes 
PU(4) lengths of each players putt 
T(4),H(4) retains player order of hit 

for tees and greens 

28 DIM m<22>m=" MOOD IRON WEDGE 

u 

22 DIM C<40),B$<7).I#(28),N(4).P(9).S(4. 

9).PIK4),T(4),H(4) 

58 GRAPHICS e^SETCCLO? 2.1L6 SETCOLOR 4 

.15,6 

inputs number of players and names 

52 ? =? " M A S T E R S' GOLF 

54? ,"to DaMid Bo^ilke" ? ■? 
56 7 " ENTER fwjrt^r of solfers (1-4) " 
i'lmjT NI=PL=ASC(Nt)-48aF PL<1 GR PL>4 
THEN f^ 



68 ? :? 'FOR 1=1 TO PL 

62 PRINT " ENTER mm of solfer # ";I;" 

";:INPUT B* = ? 
64 N(I)=LEN<BI)+N(M)^N$<N<I-l)-H.hKI)> 

s^.y^^ I 

66 FOR W TO 4 = H(I>=I=T(I)=M€>^T I 
200-350 Main Game Loop 
loop for 9 holes 

280 FOR Hl=l TO 9 

plots fairway, green, tee, yardage, 
sandtrap 

ZtBGMB 908^POKE 752.1 

sets player order of hit from tee to 
green 

212 FOR 1=1 TO 5 = FOR J=l TO PL-1 
214 X=S<T( J).HL-1 ) = Y=S(T( J+1 ).HL-1 ) 
216 IF X>Y THEN Z=T<J)^T(J)=T(J+1>^T<J+1 

218 NEKT J'NEHT I 

loop for each player to hit from tee 
to green. S is the number of shots 
taken. 

228 FOR TX=l TO PL ^8=8 

225 PRINT "HOLE # «;HL;" PAR ";R:HI) 

YARDS ";Yft 
238 TU=T(TX)aF PL=1 THEN TU=1 
240 GOSUB 780:S<TU.HL)=S 
242 FOR 1=1 TO Af^im " IT'S m THE 

mm " 

244 FOR J=70 TO 1 STEP -1=SOI10 8. J. 18.4 
^NEXT J'NEXT I 

245 NEXT TXaF PL=1 THEN 258 

sets player order to putt-out 

246 FOR 1=1 TO 4:H<I>=I=h€XT I=FOR 1=1 T 
5-FOR J=l TO PL-1 

247 IF PtKH(J)XPU(H<J+l» THEN 2=H<J>=H 
(J>=«CJ+1)^H<J+1)=2 

248 >CXT J^NEXT I 

loop for each player to putt 

250 FOR TX=1 TO a S=8 

252 IF PL=1 THEN TU=l^a)TO 268 

254 TIMKTX) 

268 GOSUB 588 = F0R 1=1 TO 488 = I€KT I 

288 S<TU>HL)=S<TU.HL)+S=I€XT T>^ 

scorecard routine 

388 GOSUB 488 

for 9 holes 

358 NEXT HL 

then end 

368 PRINT "END" ^ END 

400-4^ prints scorecard 
colors and prints 

488 GRAPHICS 8 = SETC0L0R 2,15.4 SETCOLOR 

4,RND(8>«16,8 = P0KE 752,1 

482?:?" MASTER S' GOLF 

404'PRiNT "HOLE"=? =PRINT "PAR" 
486 POSITION 36, 4: PRINT "TOT"; 

prints hole numbers 

408 FOR 1=1 TO 9 'POSITION 1*3+6, 4 = PRINT 
Ii^«XT I 

lines in scorecard 

418 FOR 1=1 TO 38 -FOR J=l TO PL+1 

411 POSITION I,v«3+5:PRINT " "i NEKT J^N 
EXT I 

prints par for each hole and total 

412 TP=8:F0R 1=1 TO HL=POSITI0N I$3+6,6- 
PRINT PCI>,:TP=TP+P(I> NEXT I 

413 POSITION 36, 6 = PRINT TP; 

lines in scorecard 

414 FOR 1=1 TO le^FOR J=4 TO PL*3+8 

416 POSITION I«3+5,J=PRINT " ",=»Cr JN 
EXT I 

prints players names and score for 
each 

428 FOR 1=1 TO PL=POSITI0N 1,1*3+7 

425 PRINT NKN(MH1,N(I», 

438 T=8-F0R J=l TO HL:T=T+S(I,J) 

434 POSITION JO+6, 1*3+7 = PRINT S(LJ>; 

448 NOCr J 

445 POSITION 36,1*3+7 PRINT T; 



458 NEXT I 

check for end of game 

478 IF HL=9 THEN POSITIW 2,23=PRINT " E 
ND MASTERS' GOLF "END 
else return 

488 POSITION 2, 23 = PRINT "Press FIRE to 
continue . . ."; 
482 IF STRIG(0)=0 TJ€N RETURN 
484 SQUm 0,RMX0).t200.10,6 = GOTO 482 
490 RETURN 
500-660 putting routine 

colors 

580 GIWHICS 5 = COLOR l^SETCaOR 0,12,6 = S 
ETCOLOR 4,14,8 = SETC0L0R 2,8a2 = P0KE 752. 
l=SETCa.OR 1,12,10 

582 caw 1 

DC is the distance to the cup 

510 DC=INT(PU<TU)) 

plots contour of the green 
F is the location of the flag 

538 G=30 = C=1:1F 0.5>R1€k:1) Tf€N C=-l 
532 D=RMX1)*20+10 = R=0.7 

534 E=RNO< 1 )*20+40 

535 F=INT< mx 1 ).t28 )+45 
540 FOR 1=0 TO 78 STEP 2 

545 PLOT I,G=PLOT I+1,GG(I/2)=G 

546 PLOT I,G+1=F10T I+1,G+1 
548 IF 5>fCS(F-I ) TF€N 570 
558 IF DE T»l R=0.95 

552 IF I >D im\ C=-C = 0=1£€ 
560 IF R<RND< 1 ) T^EN G=G+C 
568 IF G>39 THEN G=39 
57B NEXT I 

B is the location of the ball 

K8B=INT<F-0C) 

cup impression in the green 

585 COLC»^ 4=PL0T F,G(F/2) PLOT F,G':F/2)+ 
1 

plots for flag and pole 

598 cam 2= PLOT F,0-OR^aTO F,G<F/2)-3 

591 PLOT F+8,4^DRAl.iT0 F,0 

592 PLOT F+8,4DRAl-JT0 F.8 

no putt is necessary! 

595 IF FtKTUKS THEN PRINT " IT'S IN T 
HE CUP ! ! ! "=COLOR 3^PL0T F;G(F/2H1: 
S0UM3 0,4i,0,8 = R£TURN 

plots ball 

5% COLO? 2^ PLOT B,G(B/2:-l 

inputs length of putt 

6B8 L=^ = S=^+1 

682 PRINT "Hole # ";HL;" ♦♦♦♦♦ Laains 
";S(TU,HL)+S-1 

683 PRINT N*(N(TU-1)+1,N(TU)>;" 'S FUT 

T ": PRINT " PUTT LENGTH ? ? " 

iL 

684 IF STRIG<0)=0 THEN 618 

685 IF STICK(0)=15 T^N 6M 

686 ? =IF STia<(0)=14 THEN L=L+1 IF L>80 
TJ€N L=l 

687 IF STia«0)=13 THEN L4.-MF L<1 THE 
NL=88 

689 SOUND 0,250-L*3,l 0,4^ GOTO 603 

moves ball across green 

610 C=0^N=MF B>F THEN h<=-l 

620 CaOR 4^ PLOT B,G(B^2)-1 

622 B=B+N:C0LOR 2 = F10T B,G<B/'2)-l 

625 IF B>77 TJ€N B=77 = O3T0 6» 

626 IF B<1 THEN B=1=G0T0 608 

627 IF G(B/2KG<R'-2+l) im\ L=L+INT<raC( 
1)*2) 

^8 IF G(B.''2»G<&'-2+l) T^€N L=L-INT<RNO( 

1)*2) 

630C=C+MF C>=L THEN 658 

635 SOUM) 0,8*2, 10, RNO<1>*10 

640 GOTO 620 

another putt attempt is needed 

^0 IF BOF 1V£H 600 

putt is good 

6S COLOR 4=PL0T B,G<R''2>-1 
656 CaOR 2^ PLOT B,G<B/2>+l 

660 f^rim 

700-850 moves ball from the tee to 

the green 



BI32 is plot location of the ball 

700 K=Tl-2+INT<R!Ci(l)*5)^Bl=3^Ca_0R l^P 
LOT B1,B2=Q=0^C=1=Z=2 

input routines for club choice 
(D is distance) 

701 C1=C IF 01 THEN Cl=C*8-8 

702 PRINT N$<Nc:TI>l)+i,hKTU));" 'S TURN 
^" = PRINT "SELECT CLUB '^f "iAfCCLCl+S) 

703 IF STRIG(0)=0 Tf€N 707 

784 IF STICK:(0)=15 THEN SOJNO dSm.B'>t2 
00,10,4 GOTO 703 

785 C=C+1 = IF C>3 THEN C=l 
7% ? =GOTO 701 

787 PRINT "CC^UTED"=FOR !=i TO 100^!€KT 
I 

788 IF C=3 im\ 750 

789 11=4: I=MF C=2 THEN 11=9 

718 PRINT A$<Cl,Cl+6)>" # ? ",I = ? ? 

712 IF STRIG<8)=0 THEN GOTO 725+C*5 

714 IF STICK(0)=15 THEN SOlC 0,RNCK0)*2 

00, 10, 4= GOTO 712 

716 I=I+MF I>I1 THEN 1=1 

718 mW 710 

738 D=< 4-INT< I > )*10+200+FMJ< I )*40 •■ GOTO 7 

55 

735 D=< 9-IHT< I) )*12+90+R!^: i )*20 • GOTO 75 

5 

750 D=30+RW( 1 )*20 

inputs for direction (DR) 

755 D1=1=D2=^OR=20 

756 PRINT "COf'RJTED":FOR 1=1 TO 100^NEXT 
I 

758 PRINT "DIRECTION ?? ",0?^? 7 

759 IF STRIG<0)=0 THEN 764 

760 IF STICK<0)=15 THEN SO^^O 0,RNa0)*2 
08,10,4 GOTO 759 

761 IF STICK(0>=14 Tf€N OHJR+MF DR>49 
THEN DR=10 

762 IF STICK(0)=13 THEN OR=re-l = IF DR<10 
THEN DR=49 

763 a)TO 7^ 

X,Y are the movement off3ets 
for direction D4, D5 are 
modifications for hits from sand; 
etc. 

764 D4=DR:D3=0aF 2=0 T«N D3=INT<RND(0) 
*7>-3 = D4=DR+D3-IF O4<10 OR D4M9 THEN 76 
4 

7m DR=D4aF 2=i THEN re=D''(RHK0)+2> = D= 

D-D5 

7€? IF 0R<21 THEN X=(a^-10)/10:Y=<20-DR) 

/18^D2=-1: GOTO 780 

768 IF 0R<31 THEN X=<30-a)/10=Y=(DR-20> 
/IB^GOTO 7m 

769 IF DR<41 THEN X=<I«-30)/10 = Y=(48~DR) 
/18.D1=-1=G0T0 7^ 

778 X=<58-ORyi0-Y=<CR-40)/10=Dl=-l-D2=- 

1 

788 D5=D-RND(8)*D-10-IF C»<20 T^£N D5=20 

7B2 IF Z=3 THEN D=05 

moves ball down the fairway 

888 S=S+1 -0=0+1: IF Y=0 THEN Y=l.^-03 

882 IF X=8 THEN X=l.«-«3 

883 COLO? 2=PL0T B1,B2 

887 IF X>»©(1) AND Y>RNDCl> THEN 81=81+ 
D1:D=€-8=B2=K+D2:G0T0 828 
818 IF X>RND(1) THEN B 1^1 +01 •0=0-8 
812 IF Y>RND<1) THEN B2=B2+02=D=D-8 
828 IF (B1>1) AND CBK78) AND <B2>1> AND 
<B2<;^) THEN 8;^ 

826 COLOR 3:PL0T B1,B2^C=1=G0T0 781 
830 LOCATE B1,B2,2=C0L0R 3^PL0T B1,B2 
832 SOUND 8,Bl+K,12,RMKl)*4+3 
835 IF D>8 THEN M3 

not on the green; get another hit 

848 IF R1<ABS<B1~G1) THEN C=l GOTO 781 
842 IF R1<ABS(B2-G2) THEN C=1:G0T0 781 

compute length of putt, return 

845 PU(TU)=ABS<B1-G1)*7+ABS<B2-G2)*7+RND 

<1>*5 

858 RETURN 

900-983 plots fairway, green, tee, 
sand, gets yardage 
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Great Scott! 

What have you 

created? 

The international reception of Scott Adams' ADVENTURE 

game series is phenomenal! Each of the ten games takes the 

player on odyssies of intngue and danger, through 

confrontations with various villains, in pursuit of a wide 

variety of mysteries and treasures, in surroundings both 

familiar and alien. You may find yourself in a voodoo den, 

on the edge of a strange and threatening galaxy, in the 

core of a malfunctioning nuclear reactor, or in any one of the 

several other settings; ranging from mundane to bizarre. 

Challenge your genius! Order an ADVENTURE 

Master these ADVENTURES! 

5. The Count 



Special Sampler 
Adventureland 
Pirates Adventure 
Mission Impossible 
Voodoo Castle 



ADVENTURES are available for Pet"", 

Sorcerer"", Apple"", TRS-80"" Microcomputer, 

and other major personal computers. 




Strange Odyssey 
Mystery Fun House 
Pyramid of Doom 
Ghost Town 



.CG 



Look who^s raving 
about ADVENTURE 

Out of 50 programs reviewed, Adventure was 

rated No. 1 ! "Highly recommended." 

80 Software Critique 

"Adams' Adventure is exquisite. It is a true 

tour-de-force ..." 

Recreational Computirtg 

"... It is worth the money to buy a computer just to 

play Adventure." 
Software Directory Winter 1980 

"... Truly absorbing simulations. These games require 

you to be inquisitive, innovative, a thinker, a risk taker, a 

logician, a warrior, and a lover of real challenges — in 

short, an Adventurer." 
Ramon Zamora, Recreational Computing Issue 4 

I LOVED IT! There was a real challenge to this program ..." 
Captain 80, 80 Microcomputing Issue t 



TO ORDER: CALL TOLL FREE 



1-800-258-1790 

(In NH call 673-5144) 




THE BEST OF MUSE 

A COLLECTION OF OUR FIVE MOST POPULAR CASSETTE PROGRAMS 

NOW ON DISK 



MAZE GAME, the original 
and still the best maze game 
for Apple II users. Set the size 
and difficulty level of your maze 
and watch as It Is randomly 
generated. Special graphics 
place you inside a colorful 
maze, with a blue floor, green 
and yellow walls, and a pink 
sky above. Player options in- 
clude getting a maze map, hav- 
ing a compass available, and 
leaving retraceable footprints 
on the maze floor. 16K Integer 
ESCAPE is an exciting 3-D 
adventure with special color 
graphics that place you inside 
a maze of hallways. Find your 
way out by following the clues 
of people you meet Inside. But 
be careful . . . the liars will not 
hesitate to give you false maps 
and compasses. It's hard to 
quit this game! Rated as the 
number 1 Apple program by the 
M&rin Computer Center. 16K 
Integer. 

SIDE SHOWS is a collection 
of six exciting games selected 
for their originality, ease of 
operation and Imaginative use 
of the Apple. Includes the Ap- 



ple Tree, Safecracker, Pip 
Shoot, Minelayer, Blockade and 
Quadripong. In the Apple Tree 
two players use the paddles to 
catch randomly falling apples. 
In Blockade and Minelayer try 
to surround your opponent with 
a moving wall or mine field. Pip 
Shoot can be played by two or 
more and the object Is to shoot 
down as many "pips" as possi- 
ble. Quadripong is four wail 
pong with varying ball speed 
and sound. Use the paddle 
carefully to be the first to open 
the safe In Safecracker. 16K 
Integer. 

TANK WAR is a state-of the- 
art shootout for two players 
with dramatic sound and 
graphics. Players choose the 
style and size of their tank. 
Steer your tank with the game 
paddles to pursue and out- 
maneuver your opponent. Fire 
two types of missiles to disable 
and destroy the enemy. 16K 
Machine Language. 

THE MUSIC BOX -start the 

MUSIC BOX and your Apple 
comes dllve with sound and 
poldr. Play It as a three-octave 



instrument or type in a song 
and the music box will play It 
for you! A brilliant full color 
light show accompanies the 
music. Standard musical nota- 
tion includes sharps and flats, 
note time, rests, dotted notes 
and tempo. Your songs can be 
saved on disk and recalled 
later. All notes can be easily 
retuned from the keyboard to 
produce special sound effects. 
Complete with two songs and 
documentation that explains 
basic musical notation. 16K 
Machine Language. 
All on one disk. A $64.75 value 
for only $39.95 



TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH calf 673-5144} 

6 South St., 
Mllford, NH 0305S 



The above programs are also available on cassette for $12.95 each. 



41 



ROM the ROBOT 
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ROM THE ROBOT is an 
Integer BASIC program for the 
Apple and requires at least 16 K. 

by Bill Smith 

This is the third part of Bill 
Smith's ROM the ROBOT series, 
which is an animation tutorial 
using low resolution graphics on 
the Apple 11 . Parts 1 and 2 appear 
in the June and July issues of 
Spftside: Apple. Part 1 describes 
the instructions that create the 
robot's figure and let you turn ^lim 
in place, make him nod, shake liis 
head, or blink. Part 2 describes the 
instructions that allow ROM to 
walk around the screen without 
falling off. This month's addition 
combines ROM's abilities into a 
simple game. 

There are a few features of 
Apple's Integer BASIC that should 
be noted with regards to this 
program. In line 20, the PEEK 
statement checks the keyboard 
strobe. If a key has been pressed, 
its ASCII code is put in the 
variable KEY. If no key has been 
pressed, the value will be less than 
128. Apple's ASCII codes repeat 
after 128, so both 65 and 193 are 
codes for the letter A (therefore, 
line 30 tests for character 194, or a 
B, etc.). 

Two sets of POKE'S should also 
be mentioned. The Apple really 
has 2 low-res screens, and Bill has 
set up his program to draw ROM 
on page 1, do a memory move to 
page 2, and display page 2. With 
this method you never see ROM 
actually being redrawn. Line 70 
does the memory move, and Hues 
80, 9010, and 9020 cause page 2 to 
be displayed. 

One last item pertains to Integer 
BASIC. In an IF-THEN statement, 
if the condition is true, only the 
first instruction after THEN is 
affected. The false condition 
resumes immediately, not at the 
next program line. (See line 90 for 
an example. In most other 
BASIC'S the second IF and the 
GOTO would be meaningless.) 



ROM ON PARADE - PART 3 

This month, we are going to 
teach ROM a game to demonstrate 
some of his many attributes. This 
will, together with what we have 
from parts 1 and 2, make a 
complete game program, so we 
had better give it a title. How does 
ROM ON PARADE sound? 

The instructions to play the 
game are simple, but a certain 
amount of skill is required to be a 
successful Drill Sergeant. The idea 
is to march ROM around the 
screen using the keyboard 
commands: 
*T" - Front face 
**L" - Left face 
**R" - Right face 
"M" - March forward 
**C" - Climb 
**D" - Descend 
"H" - Halt 




When the heel of ROM's foot is 
placed above one of the three 
white spots on the screen, it 
disappears. Cover them all in turn 
and the game is over. A counter 
keeps track of the time, so the 
appropriate commands must be 
issued promptly. 

For those readers who have been 
typing in ROM from the previous 
parts of the series, line 30 needs 
changing to add a new 
COMMAND subroutine P (parade 
game). Lines 2080 to 2083 are the 
subroutine itself. Lines 26 and 65 
in the MAIN LOOP are new, as 
are the 4000 series. 



D 



Lines 2080-2083. The new 
COMMAND subroutine **P" 
introduces another flag FP which 
controls the visits to the 4000 set 
of lines from the MAIN LOOP. 
The counter C and spot flags (SI, 
S2 and S3) are set to zero. Short 
instructions for the game are also 
given. 

Lines 4010 checks if all the spots 
have been covered. If so we branch 
to line 4140 to print the score and 
a comment before resetting the FP 
flag and ending the game. 

If the spots have not all been 
covered I we increment the counter 
C in line 4020, rewrite the 
instructions with the updated 
score, then in lines 4040 to 4090 
redraw each spot, checking if 
ROM's heel is over it before 
returning to the MAIN LOOP for 
another go -around. 

To operate, after RUNning the 
program type **P". Read the 
instructions, type **F" or some 
other relevant command and you 
are off . . . 
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1 REM XRC»1 THE ROBOTi 

2 REM BILL SMITH 

3 REM GAMEilER ISLAND 
1 REM GIBSONS B.C. 
5REM Ctm»t 

10 GOTO 9000 

20 KEY= PEEK (-16381): IF KEY< 
128 THEN 60 

25 F-RINT : PRINT : PRINT 

26 IF FP=1 THEN FP=2 

30 IF KEY#191 AND KEY*198 WD 
KEY*201 AND KEY*206 AND KEY* 
210 AND KEY»217 AM) KEY»195 
AND KEY#196 AND KEY#205 AND 
KEY*200 AND KEY*209 m KEY* 
208 THEN 50 

10 A=KEY 

50 POKE -16368,0 

68 GOSUB Alio 

65 F FP=2 TffiN GOSUB 1000 

70 POKE 60,0: POKE 61,11 POKE 
62,255: POKE 63,7: POKE 66, 
O: POKE 67,8: CALL -168 

80 POKE -16299,0: GR 

90 IF X<6 OR X>33 THEN 92: IF 
Y<3 OR Y>21 THEN 9i: GOTO 20 

92 GOSUE: BOlO: GOSUB 8000: IF 
X<6 THEN X=X+i: IF X>33 THEN 

x=x-i:a=19i: goto 20 
91 if y<5 then y=y+i: if y>21 then 

Y=Y-i: GOTO 20 
100 COLOR=i: REM BODY (BU) 
110 VQN Y+l,Y+7 AT X: VLIN Y+1 

,Y+7 AT X-i: VLIN Y+l,Y+7 AT 

X+1 
120 RETURN 
200 C0L0R=15: REM mO FRONT(HF) 

210 PLOT x,y: hlin x-i,x+i at Y- 

1: PLOT X-2,Y-2: aOT X-1,Y- 
2: PLOT X+l,Y-2: PLOT X+2,Y- 
2: PLOT X-2,Y-3: PLOT X,Y-3 
: PLOT X+2,Y-3 

220 HLIN X-1,X+1 AT Y-1 

230 RETURN 

250 C0L0R=15: REM EYES BUM<(HB) 

260 PLOT X,Y: HLIN X-1,X+1 AT Y- 
1: HLIN X-2,X-1 AT Y-2: HLIN 
X-2,X+2 AT Y-3: HLIN X-1,X+ 
1 AT Y-i: HLIN X+l,X+2 AT Y- 
2 

270 RETURN 

300 COL0R=15: REM \£W FRONT LOOKIN 
G DOHN (HFD) 



310 HLIN X-1,X+1 AT Y: PLOT X-1 

,Y-i: PLOT X+l,Y-i: PLOTX- 

2,Y-2: PL0TX,Y-2: PLOT X+2 

,Y-2: HLIN X-1, X+1 AT Y-3: HLIN 

X-1, X+1 AT Y-1 
320 RETURN 

100 C0L0R=15: REM HEAD LEFKHL) 
110 PLOT X,Y: HLIN X-1, X+1 AT Y- 

1: HLIN X-2,X+1 AT Y-2: PLOT 

X+1, Y-3: HLIN X,X+1 AT Y-i: 

PLOT X-1, Y-3 
120 RETURN 
500 C0L0R=15: REM HEAD FACING RIGHT 

(HR) 
510 PLOT X,Y: HQN X-1, X+1 AT Y- 

1: HLIN X-1, X+2 AT Y-2: PLOT 

X-1, Y-3: HLIN X-1,X AT Y-i: 
PLOT X+1, Y-3 
520 RETURN 
900 COL[K=li: REM LEG S ARMS FOR RI 

GHT FACE(LR) 
910 VLIN Y+B,Y+11 AT X: VLIN Y+ 

l,Y+7 AT X: PLOT X+1,Y+11 
920 RETURN 
950 COLOR=li: REM LEG i ARMS FOR LE 

FT FACE (LL) 
960 VLIN Y+8,Y+11 AT X: VLIN Y+ 

l,Y+7 AT X: PLOT X-1,Y+11 
970 RETl«N 
1000 COLOR=li: REM LEGS AND ARMS FOR 

FRONT FACE (LF) 
1005 C0L0R=11 

1010 PLOT X-2,Y+i: PLOT X+2,Y+1 
1015 VLIN Y+2,Y+7 AT X+3: VLIN Y+ 

2,Y+7 AT X-3 
1020 VLIN Y+8,Y+11 AT X-K VLIN 

Y+8,Y+11 AT X+1 
1050 RETURN 
1100 REM LEGS S ARMS MARCH LER (LML 

) 
1110 C0L0R=11 
1120 PLOT X,Y+i: PLOT X-l,Y+2: PLOT 

X-2,Y+3: PLOT X-3,Y+i: PLOT 

X-1,Y+5: PLOT X+2,Y+3 
1130 VLIN Y+8,Y+11 AT X: VLIN Y+ 

10,Y+13 AT X-2: PLOT X-1,Y+ 

9; PLOT X-3,Y+13: PLOT X-1, 

Y+11 
1110 RETURN 
1150 REM LEG S ARMS M<«CH LER 1 <LM 

LI) 
1160 C0L0R=11 
1170 PLOT X,Y+i: PLOT X+l,Y+2] PLOT 

X+2,Y+3: PLOT X+l,Y+i: PLOT 

X,Y+5: PLOT X-2,Y+3: PLOT X- 

3,Y+i: PLOT X-1,Y+5 



1180 WJN Y+8,Y+11 AT X: PLOT X+ 
l,Y+li: PLOT X-l,Y+li: PLOT 
X+1,Y+13: PLOT X+2,Y+12: PLOT 
X-1,Y+10 

1190 m\m 

1200 REM LEGS 8 ARMS MARCH RIGHT (LMj 

R) 
1210 C0L0R=11 
1220 PLOT X,Y+i: PLOT X+l,Y+2: KOT 

X+2,Y+3: PLOT X+3,Y+i: PLOT 

X+1,Y+5: PLOT X-2,Y+3 
1230 VLIN Y+8,Y+11 AT X: VLIN Y+ 

10,Y+13 AT X+2: PLOT X+1,Y+ 

9: PLOT X+3,Y+13: PLOT X+1, 

Y+11 

1210 rariRN 

1250 REM LEG & ARMS MARCH RIGHT (LMR 

1) 
1260 C0L0R=11 
1270 PLOT X,Y+i: PLOT X-l,Y+2: PLOT 

X-2,Y+3: PLOT X-l,Y+i: PLOT 

X,Y+5: PLOT X+2,Y+3: PLOT X+ 

3,Y+i: PLOT X+1,Y+5 
1280 VLIN Y+8,Y+11 AT X: PLOT X- 

l,Y+li: PLOT X+l,Y+li: PLOT 

X-1,Y+13: PLOT X-2,Y+12: PLOT 

X+1,Y+10 
1290 RETURN 
mo D=0: REM BLD* 

1911 IF F>1 THEN F=0: GOSUB BU: GOSUB 
LF: if F=0 THEN 1912: GOSUB 

he::f=o: return 

1912 GOSUB HF:F=1: RETIWI 

1950 REM CLIMB 

1951 Y=Y-i: GOTO 2051 

1960 REM DESCEND 

1961 Y=Y+i: GOTO 2051 

1980 D=0: REM FRONT FACE 

1981 GOSUB \r\ GOSUB BU: GOSUB LF: 

RETURN 

2000 REM m.1 

2001 IF D=l THEN A=210: IF D=2 THEN 
A=20i: POP' : GOTO 20 

2010 D=2: REM RIGHT FACE 

2011 GOSUB hl: GOSUB Bu: Gosue ll: 

RETURN 

2050 REM ?mmi mQ\ 

2051 If d=i then 2052: if d=2 then 
2055: POP :a=206: goto 20 

2052 x=x+i: GOSUB hr: GOSUB bu: if 
f=o then 2053: if f=2 then 
205i:f=fi: gosub lr: return 

2053 f=i:fi=2: gosub lmr: return 
2051 f=i:fi=o: gosub lmri: return 
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Create 3- 

dimensional 

graphics! 

by Mark Pelczarski 

3-dimensional figures can 
be rotated, shifted, scaled, 
or distorted. Each figure 
can be saved on disk and 
later assembled into larger 
figures, with each part 
capable of being 
manipulated. Screen 
images may be saved and 
used with other programs. 

48K Applesoft ROM 
$29.95 on disl^ette 



TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 



2055 x=x-i: GosuB hl: gosub bu: if 


1060 IF S2=l THEN 1080 


F=fl THEN 2056: IF F=2 MN 


1070 PLOT 20,38: IF X=20 AND Y=23 


2D57;f=fi: gosub llj return 


THEN GOSUB 1120 




1080 IF S3=l THEN 1100 


2056 F=1JF1=25 GOSUB LMLJ RETURN 


1090 PLOT 30,2i: F X=30 AND Y=9 




THEN GOSUB 1130 


2057 F=1:F1=0: gosub LMLU RETURN 


1100 RETURN 




1110 Sl=i: RETURN 


2060 D=0: REH SHAKE HEM) 


1120 S2=i: RETURN 


2061 GOSUB BU5 GOSUB LFJ ff F=0 THEN 


1130 S3=i: RETURN 


2062: F F=2 THEN 2063:F=Fi: 


1110 PRINT : PRINT : PRINT "YOUR SCOR 


GOSUB HF: RETURN 


E OF "}C}: F O160 THEN 1210 


2062 f=i:fi=2: GOSUB hl: return 


: IF O120 THEN 1220? F C> 




80 THEN 1200: IF C>10 THEN 


2063 f=i:fi=o: gosub hr: return 


1180 




1160 PRINT " HAS EXCELLENT "}B$: 


2080 gosub bu: gosub hf: gosub lf: 


PRINT "YOUR COUNTRY NEEDS YOU A 


C0L0R=15: PLOT 10,26: PLOT 


S A DRILL INSTRUCTOR" 


20,38: PLOT 30,21 


:: GOTO 1250 


2081 PRINT : PRINT "IttRCH ROH AROUW) 


1180 PRINT " HAS GOOD "JBi: PRINT 


SO THAT his HEa is OVER EACH 


"BUT n IS PnfJBTBlF TO DO BETTER 


OF THE THREE HHITE SQU<«ES IN" 


": GOTO 1250 




1200 PRINT " 4<AS AVERAGE "JBi: PRINT 


2082 PRINT "TURN.YOU WTl 1 BE SCURED 


"KEEP PRACTICING": GOTO 1250 


N SPEED AND THEACCURACY OF THE S 




POTS COVtRED."} 


1220 PRINT " tttS KJUk "',B$\ PRINT 


2083 c=o:si=fl:s2=o:s3=o:FP=i: return 


"TRY AGAIN": GOTO 1250 




1210 PRINT " HAS TERRIBLE "JBi: PRINT 


2090 reh Qun routine 


"YOU JUST HAVE TO BE ABLE TO DO 


2092 poke -16300, O: TEXT : CALL 


BETTER THWTHIS!!!" 


-936 


1215 FP=0 


2091 VTAE lO: TAB 18: PRINT "BYE!" 


1250 PRINT "TO PLAY AGAIN HH 'P',F 




FINISHED 'Q'"} 


2096 POKE 75,8: POKE 205,8: END 


1260 RETURN 




8000 REM GRUNT SUBROUTINE 


2100 D=i: REM LEFT FACE 


8002 FOR Z=l TO 10:ZZ= PEEK (-16336 


2101 GOSUB hr: gosub bu: gosub lr: 


): FOR ZZ=1 TO 2: NEXT ZZ: NEXT 


RETURN 


Z: RETURN 


2170 D=0: REh NOD 


8010 PRINT "OUCH! w" TWT HURT MY N 


2171 IF F>1 THEN F=0: GOSUB BU: GOSUB 


OSE mi" 


lf: IF F=0 THEN 2172: GOSUB 


8011 RETURN 


\¥\F=r, RETURN 


9000 REM INTTIAI T7ATIGN 


2172 GOSUB HD:F=1: RETURN 


9010 POKE 71,0: POKE 75,12 


1000 REM PARADE GAME 


9020 POKE 201,0: POKE 205,12 


1010 IF SI AND S2 AND S3=l THEN 


9030 X=19:Y=19 


1110 


9010 bu=ioo:hf=20o:hd=3oo:hl=ioo 


1020 C0L0R=15:C=C+i: IF C=999 THEN 


:hr=50o:hb=25o:lr=9oo:ll=950 


1110 


:lf=iooo 


1029 F-RINT : PRINT "F=FACE FR0NT.R=RI 


9011 LML=1100:LHL1=1150:LMR=1200 


GHT FACE.L=LEFT FACE M=FHD MAR 


:U«1=1250 


CH. C=CLIMB. D=0ESCEND. H 


9050 FOR A=20 TO 2i: VTAB A: PRINT 


=HALT" 


II 


1030 yTAB 23: TAB 29: PRINT "SCORE " 


": NEXT A 


;c 


9060 A=198: GR 


1010 IF Sl=l THEN 1060 


9070 GOTO 20 


1050 FIOT 10,26: IF X=10 AND Y=ll 


9999 END 


THEN GOSUB 1110 






© 
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New products from 
Sceibi Publications 



Calculating with BASIC 

Use your computer to calculate home 
mortgage payments, interest rates, payback 
periods and more. Complete routines already 
worked out for problem solving using BASIC 
language. Also includes mathematics, finance 
and statistics, mechanlc3l engineering and 
electronics. $7.95 



Learn Micro-Computers 

A new multimedia information package. 
Includes text ("Understanding 
Microcomputers") plus high-quality cassette. 
For the beginner just starting in 
microcomputers. Covers all the basics quickly, 
easily, and enjoyably. Companion tape 
includes chapter-by-chapter synopsis of the 
book. Great new idea for self-study. $14.95 



Personal Information Management System 

Increase your personal capabilities . . . save 
money . . . improve your ability to plan . . . 
locate important facts quickly . . . eliminate the 
drudgery of routine chores. These all add up to 
a better life style fOr you! A new way of living 
which can be more pleasant, bring you more 
happiness and success. Information. That's the 
key. Your commahd of information is what 
gives you the power to succeed. PIMS is a 
ready-to-use data ^ase management program 
for computers like the TRS-80, PET, etc. 
Without any knowledge of programming you 
can have your computer manage things such 
as income tax deductions, department store 
charges, plan your day, vacation, education 
and Important life events. Use it to keep your 
personal mailing list, schedule your TV viewing 
time, keep track of personal disbursements, 
and more. Much more! There's practically no 
limit to the type of applications. Includes easy- 
to-read manual and source listing. Get your 
copy now! $9.95 



Microcomputer Potpourri 

Data on all the popular chips. Pin connections, 
diagrams, distinguishing features. All the 
pertinent information is presented clearly and 
concisely. Includes glossary. $2.95 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 



Personal Information Management System 

When you're in business you've got a personal 
stake in how information is managed. That's 
because information is your key to success. 
PIMS will allow you to unleash the power of a 
microcomputer - and you don't have to become 
a programmer first. Use a computer for 
accounts receivable . . . accounts payable . . . 
maintain inventory records ... run a mailing 
list . . . keep track of credit charges. These are 
just a few of the many things you can do with 
PIMS. It is a ready-to-use data base 
management program for computers like the 
Commodore PtT and Radio Shack TRS-80. You 
can define and construct your own data bases. 
Each records can contain up to ten fields. You 
can search, list and sort. There's even a 
command that lets you sum columns of 
numbers. PIMS provides a valuable 
introduction to data base management. 
Complete source listing. $9.95 



Calculating with BASIC 

Here's a variety of programs in BASIC 
language to help the businessman, scientist 
and engineer. Shows how to apply the 
language to practical problems and equations. 
Formulas cover calculations of interest, 
payback periods, mortgage schedules, 
techniques for extending number of useful 
digits in monetary calculations using limited 
BASICS. A variety of electronic applied 
formulas are programmed. The mechanics 
chapter covers resultant-force calculations, 
attractive forces due to gravity, projectile 
motion prediction and graphing, moments of 
inertia tor T-section, l-section and channel 
sections. Mathematics chapter includes 
programs to solve the quadratic formula, 
general summation formulas such as sum of 
geometric progression, number of conversion 
program, algorithms to compute sine, cosine, 
tangent, log e. $7.95 



Understanding Microcomputers 

How do you select a microcomputer system for 
your business? This book is for the person 
wanting a full understanding of which system 
is best. It tells how to select a small computer 
system. Introduces BASIC language 
programming. Basic instructions for almost 
every class of microprocessor are illustrated. 
Written in simple English. Convenient glossary 
covers all key terms. $9.95 



Take My Computer . . . Please! 

An uproariously funny book about the true-life 
misadventures of author Steve Ciarcia and his 
computer's inability to cooperate. Hardcover. 
$5.95 
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PRESS DOWN 



PRESSURE RING 



FLOPPY SAVER RING 



REMOVE BACKING PAPER 

* AND PLAGE RING — 

ADHESIVE SIDE DOWN 




CENTERING TOOL 



mrStar Corporation 







FLOPPY SAVER PREVENTS: 

Computer drive's clamping hub from tearing disl<'s 
center hole. 

Coating removal, scuffing and dimpling when the 
disk hits the rotating spindle. 

Data loss caused by improper rotation of a floppy 
disk. 

Any damage to Floppy Disk's center hole. 

FLOPPY SAVER KIT consists of: 

Plastic centering tool and pressure ring. 
25 7-mil mylar rings with paper protected adhesive 
backing. 

EASILY Installed on disks In seconds. Only one side 
needs the ring. 

for 5 1/4" diskettes •Complete Kit $14.95 • Refill $7.95 



TO ORDER: CALL TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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M SYNERGISTIC SOFTWARE 



PROGRAM LINE EDITOR 

Stronger than Integer! More powerful than Applesoft! Faster than a speedinq cursor! 

Able to leap the longest statennents in a single move! The Program Line Editoris the most 

sophisticated program development tool yet for the Apple II computer. 

Program Line Editor Includes fuTi feature line editors for both Integer and Applesoft programs that 

render ail other techniques obsolete. Program development and modification can now be completed in 

a tenth the time previously required. The package includes a set of versatile 

user-definable escape functions which enable you to type commands or sets of commands 

with only two l^eystrokes! 

The Program Line Editor is available on disk and is compatible with any Apple II or 
Apple II Plus system with disk drive. $40.00 



HIGHER TEXT 



Higher Text provides the display capabilities you nd'ed 

when the Apple's text output just isn't sufficient. With Higher Text you can print characters In 

upper case, lower case, upside down, sideways and in any color. If standard characters still aren't 

adequate, try printing in script, Old English, foreign languages, or special scientific symbology. 

Define your own specialized or decorative character sets, and easily create 

professionally customized displays without any hardware modifications. 

Higher Text comes on disk and will run on any Apple II or Apple II PLUS system with disk drive. 

The text generator is In machine language and links easily 

to the user's application program. $35.00 



WILDERNESS CAMPAIGN 

Free the kingdom of Draconia from the Evil Necromancer! Your party must overcome obstacles, defeat 

hostile inhabitants, survive natural hazards, explore tombs, temples, castles, and ruins, 

in search of gold and magical devices. 48K Integer; Cassette $14.95, Disk $17.50. 




DUNGEON CAMPAIGN 

Direct an expeditionary force into an underground labyrinth. Catacombs filled with treasures and 

hazards, poisonous vapors, evil sorcerers, stairways, pitfalls and an 

incredible assortment of MONSTERS. 16K Integen Cassette $12.50, Disk $14.95. 



MAILING LIST DATABASE 

Entry and storage of a list of names with associated addresses, cities, states, zip codes, 
phone numbers, comments, and code designations. List, search, edit, print labels; convert prior 
mailing lists. Up to 225 records can be loaded on line at any time. 48K Applesoft, Disk $34.50. 

HIGHER GRAPHICS 

A complete set of shape generation, manipulation and utilization tools for the programmer. Quickly and 

easily, you add sophisticated graphic displays and effects to your programs. Shape Maker, 

Table Combiner, Screen Creator, 4 shape tables, 3 high-res displays, ana the machine language 

graphics routines required to produce high resolution graphics on the Apple II. 48K, Integer Basic, Disk 

$24.95. 



To order call TOLL-FREE 1 '800-258-1 790 

(In NH call 673-5144) 
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MAZE SEARCH 



MAZE SEARCH is for an 8K 

Atari with a joystick. 

bv David Bohike 



Has your mind been 
uncontrollably wandering lately? 
Then try putting it back in line 
with a game that demands intense 
concentration, in MAZE 
SEARCH you not only need to 
control your moving cursor to 
intercept the 24 targets, but you 
must also diligently plan ahead to 
be able to negotiate in and out of 
the ma/e. Only the very best 
players will be able to capture all 
the targets. 

Each game begins with your 
ATARI generating a random maze. 
Every section within the ma/e has 
only one entrance/ exit to the 
outside corridor — which is your 
means of accessing other sections 
of the maze. After the maze is 
completed, 24 blue targets (blocs) 
will be randomly placed in the 
maze. The object of MAZE 
SEARCH is to move your green 
cursor and run over the blue 
targets. Several players can in turn 
compete to determine which player 
can intercept the most targets. 

There is a time limit to each 
game which vou can adjust in line 
600 (variable^T). The time 
remaining in the game is indicated 
by a green graphics bar to the right 
of the screen. Time is most 
efficiently used when you keep 
your cursor moving! Each time you 
intercept a target it will be 
displayed to the left of the maze. 
When the game is over, press the 
fire button on your stick control 
for another game (use paddle slot 1 ). 



1 GOTO lee 

2 f^ HAZE SEARCH 

3 REtl by Da^,'id Bc3»^lke 

direction changes for the STICK(O) 
commands. See page 60 of the 
Ret ere nee manual. 

5 GOTO 7 

6 GOTO 14 

7 X=«+l RET1JR^^ 
9 GOTO 13 

18 GOTO 11 
11 X=X-1 RETURN 
13 Y=Y+1 RETURN 
J4 Y=Y-1 RETURN 

full screen graphics in mode 3 

106 GRAPHICS 3+16 

outline of maze 

120 COLOR 1 PLOT 4.8 O^^TTO 36.0 DRfit-TTO 
36/22 DRAWTO 4>22 DR^JTu 4.6 

M(200),N(200) will hold the 
location of every intersection in the 
maze 

290 Din rK200).N(200> 

K is the intersection counter. M,N is 
the screen location of the 
intersection 
210 K=e n=i8 N=i0 
plot the initial intersection 
220 PLOT n.N 
240-390 

Loop to construct maze . 
lest il next intersection is filled m. 

240 LOCATE rH2.N.v IF X=0 T^€N 258 
242 LOCATE rh2.N-X IF X=0 Th€N l^Ji 
244 LOCATE M.H+2.X IF X=0 Tf€H 250 
246 LOCATE ri.N-2.X IF X=0 THEN 250 

next intersection is used, so goto 370 
to get the previous intersection (M 
and N) and decrement counter. 
When K = weMl be back at the 
beginning and the maze will be 
completed. 

248 GOTO 1?^ 

there is at least one adjacent open 
intersection, so pick a random 
direction ( D ) 

250 O=INT(R«X0);*:4H2'51 GOTO D 

offsets for specific directions (Ml 
and Nl) 

251 ni=-l N1=0 GOTO 300 

252 ni=0 = Nl=l GOTO 300 

253 ni=PNl=0:GOTO 390 

254 ni=eNi=-i 



check if the intersection at the 
random direction is open; goto 250 
if not 

300 LOCATE mf1U2.N+NU2.X IF X=l T^€N ? 
50 

plot to the open intersection 

310 PLOT rWILNHU PLOT rWtl:fc2,N+Hllc2' 

sound and random color 

320 SOtJND 0.mN.10.4 SETCOLOR 0,RN&::0).tl 
5>10^SETCaOR 4.RND(0):M5.8 

adjust M,N to the new intersection. 
Increment K (counter) and 
M(K),N(K) as the new intersection 
location; branch to start process 
again. 

330 tt=rHf11:tc2^H=fHNU2 K=K+1 ^KK)=M N(K; = 
NGOTO 240 

all directions are blocked, so back 
up to the previous intersection 

J?% fW(K)^N=N(K>:K=K'l 

check for maze completion 

380 IF K=0 THEN 400 

not finished, branch to check 
previous intersection 

390 GOTO 240 

clears dimensions (no longc 

needed) 

400 aR 

player starting location 

405 f1=ll=N=ll 

set colors 

410 SETCaOR 0. l.ie^SETCOLOR 4.4,6 
420 SETCaOR 2.8.8^COL0R 2PL0T fl.N 

plot 24 target blocks 

430 SETCOLOR 1,12.8 FOR 1=1 TO 24 GOaB 
900:^€XT I 

500-700 Main Game Loop 

check stick; if not pressed 
branch to 600 

500 S=STICK(0) IF S=15 THEN 606 
save position M,N with scratch 
variables X,Y GOSUB S will be 5-14 
for direction offset 

510 X=flY=N GOSUB S 

blank players block, locate new 
position X,Y 

520 COLOR PLOT n.N LOCATE X,Y.Z 
if no move possible (wall) , then 
goto 580 
54e IF Z=l T>€N 580 
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if hit a target block, then increment 
counter (HT) and check for end of 
game 

556 IF 2=3 T>£N HT=«T+1:F0R 1=1 TO 20 = SO 
UNO 0/1+56.12.15^ NEXT MP HT=^4 THEN 80 



up until first hit branch to 560 

551 IF HT=« THEN 560 

plot hits on left of maze 

552 CaOR 3 = IF HT/2=INT<HT/2) TfCN PLOT 
1 23 HT 

554 IF HT/2<>INT(HT./2) THEN PLOT 2.23-HT 

set M,N to new location X,Y 

568 ri=x M=Y 

plot player's block 

560 COLOR 2^PL0T tt.N 

increment time, plot time block on 
the right of the screen, check for end 
of game 

606 CT=CT+0.02^ COLOR 2 = PL0T 38.22-CT PLO 
T 39/22-CT IF CT>21 THEN PLOT 38>0:PLOT 
38.0'GOTO 800 

a little sound, branch to beginning 
of game loop 

700 SCUt€ 0.2«1+2«N.10.4 = GOTO 500 

game is over; check for the fire 
button to be pressed to start next 
game 

800 IF STRIG(0)=0 THEN RUN 

810 SOIK) 0.RMX0>*10e.l0.4:GOTO 860 

900 COLOR 3 = X=INT(RND<0)*16)*2+5Y=INT(R 

«K0)«11)*2+1=LOCATE X.Y.2 

WX0Xl:ll)*2+l LOCATE X.Y.2 

904 IF Z<>0 T^CN 900 

906 PLOT X.Y:RETURN 
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SARGON 

This Is the one that started the revolution in computer chess. 
Six levels of play from beginning through advanced amateur. 
Ready whenever you are. 

SARGON II 

The best has gotten better! Sargon, the program that came in 
first In the Creative Computing Microcomputer Chess Tourna- 
ment has become Sargon II. A greatly improved game, faster 
response time, new level for beginners, easier to pre-set board, 
hint mode— what does the computer suggest. Sargon II is the 
program that took on the maxi-computers in the West Coast 
tournament, and finished in the money! More thinking power 
than you ever expected. 

TO ORDER TOLL-FREE 

1-800-258-1790 




TRSSO 


APPLE 


Sargon-(tape) $19.95 


t6K, Level tl 


24K 

Machine Language 


Sargon ll-(tape)$29.95 


16K, Level II 


24K 

Machine Language 


Sargon IKdIsk) $34.95 


32K. Disk 


48K 

Machine Language 
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GRAND PRIX 



GRAND PRIX is an S-80 
program for Level II 16 Kami up, 

by Max Chauvet 

This Arcade-type game simulates 
a qualifying session of an 
international Grand Prix race. 

You are in the driver's seat of a 
powerful Formula One car and 
you will try to complete one lap of 
the circuit in the shortest possible 
time. 

The only controls you have on 
the car are left and right steering 
using the arrow keys -*— and — ^ 



On the straight sections of track 
you will be going at top speed, but 
in the curves, whenever you steer, 
your car will slow down. 
Therefore, to break the lap record, 
you will need to avoid all 
unnecessary steering— driving 
tightly into the curves. But be 
careful; if you go over the edge of 
the track you will hit the guard rail 
and lose precious seconds. 

When you are approaching the 
finish line, the program will 
display the time to beat on the left 
side of the screen and your current 
time on the right side. 



The program will then allow ycu 
to re-run on the same circuit or 
will randomly generate a new 
circuit. 

Note that the car will continue 
turning as long as an arrow key i;; 
held down. 




10000 ' GRAND PfUX RACING 
10010 ' 1980. H.CWU^^T 

10020 cle/«50o:defikta-y:cls 

10025 RFS=o:RO=o;RD=o:EC=o;B=o;KB=o:LC=otRC=i):Tw=2;z=o;T=o:Q2=i7 

tUN=i:fl=128 

10026 sw=o;lp=o;dx=io:sc=aoo;ti=oit2=o 

100^0 Mi^TRING$(255,0):M0$=STRIMG$(75,0) 

10050 ADOR=V^TR(H0$)JIFPEEK(16396)=201 THENP0KE16526,F£EK(AD+1 

)IP0KE16527rPEEK(^2) 

10052 FST=AD 

1005^ ZD=PEEK(^l)+PEEK(MH2)i256 

10056 IF ZD>32767 ZD=ZD-65536 

10058 AO=ZD 

10060 IFPEEK{16396)O201TfCN DEFUSRO=^:CHD"T" 

10070 CAR=^tf)0R+182 

10080 EC=16: DIH LAf(50) 

10090 KBO^«)=1^00 : M>=2 I BL=32 

10100 B$=STRING$(8,2^) I C$=Cm$(26) 

10110 A$=STRINGI(2,176)+LEFT$(B$,^)+C$+"*-"+STRING$(2,191)+"-t"+ 
LEFT$(B$,5)+C$+CHR'S(170)+CHRI(93)+CHR$(91)+Ctf<$(n9)+LEFT$ 
(BI,6)+C$+"«-"+STRING$(2,191)+"-t#"+LEFT$(B$,5)+Cf+CHRt 
(3^)+OM(34) 

10200 ' SCROLLING ROUHNE 

10210 DATA a)7FOA7D00018E40C5n)21BDOOFD090021B600D0092600D06EOOO 

1 

10220 DATA 00XO9C1B728O2FDE91HOOX519E5D10HOOO09EBOE10ED 

10230 DATA B0110003E1E519E5D10H00009EBOE38EDB011BF02E1E519E5D1 

10240 DATA 0HOOQO9EB0E39EDB0117F02E1E519E5D1OHOOOO9EBOE3AEDBO 

10250 DATA U3D02E1E519E5O1D1400009EB0E3CEDB011EE02FDE1FDE5FD19 

10260 DATA FD7E00FD7710FD7E01FD7711FD7E18FD7708FD7E19FD7709113A 

10270 DATA 02260 0DO6E0019E5FDElEli9E5Ol 01400 009EBFDE5C1EDB83E00 

10280 DATA C900000000000000 

10290 ' mi£. C^ 

10300 DATA DD213101DO093D20313E05117C0219E5D11313E50600DD4E00EDE: 

823E5fDElFD4610 

10310 DATA FD7000FD4611FD7001E13OC80600DD4E0109OO2TO2318O53E051 

10A00DO19117B02 

10320 DATA 19E5OUB1BE50600DO4E00EDB0011200ED42E5FDE1FD4600FD701 

OFD 

10330 DATA 4601FD7011E13DC80600DD4E0109OO23DO2318O1 

10340 DATA 0242063FO442O84O0500 

10350 DATA OZ3E0641043E08400500 



10360 DATA END 

10370 READ D* : F D*="END" THEN 10440 ELSE GOSUE: 15000 

10380 F0RI=1T0L£N(D$)STEP2 

10390 D=ASC(KIDi(DS,ia)):Dl=ASC(MIDi(D$J+l,l)) 

10400 FD>57THe«)=0-7 

10410 IF01>57Tf£NDl=Dl-7 

10420 D={D-48)il6+Dl-48 J POKE ADOR,D t A0=AD+1 

10430 NEXT I ; GOTO 10370 

10440 DATA 0,1, 1*2,3,3, 2, 1,1,0 

10450 FORI=lT010IRB«)C(I)tNEXTI 

10460 POKE ZD+6,FtEK(FST+l) 

10470 POKE ZD+7,PEEK(FST+2) 

10500 ' CIRCUn SET UF' 

10510 Trt=30+RND<20): TB=TMxl0.1! TK=Tll-5; TL=TM-i: CN=0 

10520 FOR 1=2 TO TH-2: DIR=RND(3)-2:CN=CN+0IR:IFAK(CN)>1THENC>= 

cn-2idir:dir=-dir 

10524 IF PRV=0 F1<M=DIR 

10526 IF DIR then IF DIR=PRV TJ€N T&=TB+14:PRV=0IR ELSE TB=TB+^I 

PRV=0IR 

10530 LAP(I)=OIR:fEXTI 

10540 LAP{l)=0:LAf(TM)=0:LAP(TH-l)=0;CLS 

10542 PRINTe466,"THE CIRCUIT IS ";;PRINTUSING"».« HILES L0NG";T 

H/20; 

10545 PRINT?530,"THE LAP RECORD IS ";tTl=TB/600:T2=TB-Tli600:Ff I 

NTUSiNG"«:«.r';Tij2/io;jTB$="" 

10547 FORI=548TO554;TB$=TB*+Cm$(PEEK(15360+I)):iCXT 

10548 HEI=TB$;rt=548:GOSUEf21000:FORI=lTO2Q0:NEXTi:CLS 
10550 CHi=aft(28)+CHR$(255) 

10570 CLS: PRINT0671,A$; 

10580 POKE CAR, 36: RCRASH=15360+733+EC+lI LCRASH=RC+5-2xEC-l 

10590 RPS=15384: R0AD=132: RD=13 

10600 FOR LP=1 TO TM 

10610 SN=LAP(LP): IF SN THEN RO=132:RD=0 ELSE RD=13 

10620 FORI=lTO10:RPS=RF'S+C(I)xSN:Z=USR(0):PRMCHS;:Ft3KE RPS,RC: 

POKE RPS+EC,R0:R'0=4<0+RD:RD=-RD: Bl=BtB=«EK(KB):iF SN POKE RP-S-U 

N^W^tPOKE RPS+QZ,NL 

10625 IFB=0T^CN10800 

10630 T=T+2 :IFB=32THEN10700 

10650 z=usR(i)iPOKE CAR, PEEK ( CAR )+two:lc=lc+tho:rc=rc+thq:gotoio 

710 

10700 Z=USR(2);P0KE CAR,PEEK(CAR)-THO;LC=LC-TWOtRC=RC-THO 

10710 IFBl:>0T^£NIFBl<:>BTHEN12000 

continued on page 7J 
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GRAND PRIX Take-A-Part 



r 



Let's first look at the statement 
line numbers in the program: you 
will notice that they are all 5 digits 
long starting at 10000. This is not 
due to a special programming 
technique; actually I wrote this 
program on top of an earlier 
version in order to be able to refer 
some of the original statements 
while entering the new ones. The 
original version was eventually 
deleted. 

The optical effect of the car 
advancing is created by simulating 
the track receding. This is done by 
the first part of the machine 
language routine (Basic being too 
slow for video games) which scrolls 
the screen down around the car. 
The second part of this routine 
shifts 2 positions right or left every 
character that forms the car 
drawing, whenever the arrow keys 
are pressed. All other functions are 
in straightforward BASIC. 

The car leaving the track is 
detected by PEEKing the video 
memory 16 positions left of the 
right frontwheel and 16 positions 
right of the left front wheel. In 
this case 16 is the width of the 
track. Because track format is 
identical on both sides of the car, 
if the right front wheel runs over a 
dot, then the **crash" spot 16 
positions to its left will also 
contain a dot. The same holds for 
the left wheel in the opposite 
direction. This was the tricky part. 
The rest is easy. Score counter is 
incremented by 1 with every 
program cycle, by 2 with every car 
shift and by 20 with every crash. 
Final score is compared with a 
theoretical record score calculated 
when generating the circuit layout, 
i.e. the succession of curves and 
straight lines. 

The structure of the main 
program cycle may be summarized 
as follows: 

(1) Scroll the screen around the 
car down one line. 

(2) Insert a new line at the top 
-Curves are formed by 
progressively shifting the 
position of dots on this line. 

(3) Check the arrow keys. If 
pressed, shift car and 
update score. 



(4) Check crash spots. If not 
blank, display crash effects and 
update score. 

(5) Return to step (1) 

Let's now look in more detail at 
each of the sections in the 
program. 

LINES 10000-10110 -VARIABLE 
DEFINITION 

In order to speed up execution, 
an initial value is assigned to the 
most frequently used variables. 
Because of this, the BASIC 
interpreter places them at the 
beginning of the variable names 
list, thus reducing search time 
when referenced later in the 
program. This is why in statement 
10025 several variables are set to 
zero. Other variables used here 
are: 

M$,MO$ 

: contain the machine 

language routine. 
ADDR 

: absolute starting address of 

the routine. 



EC 



BL 



: track width 

: blank character 32 



NL 

: null character 128 

LAP(50) 

: sequence of curves and 
straights forming the circuit. 
Each element represents 10 
lines on the screen and may 
take the following values: 
-1 for a left curve 

for a straight line 

1 for a right curve 
Note that the screen width 
limits to 2 the number of suc- 
cessive curves in the same 
direction 

KBOARD 

: Keyboard address. When 
pressing the arrow keys, 
PEEKing this location will 
return the value 32 for the left 
key and 64 for the right key. 



A$ 



: Car drawing. It lays over 5 
lines by use of the cursor back 
(decimal 24) and cursor down 
(decimal 26) characters. 



LINES 10200-10430 - MACHINE 
LANGUAGE ROUTINE 

The DATA statements contain 
the hexadecimal form of the 
routine. Lines 10370-10430 convert 
every 2 characters to their decimal 
equivalent value which is then 
POKEd in the reserved string 
variable space. In order to execute 
this code, the interpreter must be 
given a starting address. This is 
done under Level II BASIC by 
poking this address into memory 
locations 16526 and 16527. Under 
DOS, a DEFUSR statement is 
required. 

If the available memory exceeds 
16K, the routine will be located 
past the 32767 address because 
string area is reserved in high 
RAM. A small problem arises in 
this case because POKE statements 
require the address to be in the 
[-32768, + 32767] range; when it 
exceeds the upper bound the 
address must be converted to its 
two's complement form by 
subtracting 65536 from it. In this 
manner, 32768 will be converted to 
-32768 and 65535 to -1. 

Simple down scrolling is 
achieved by transferring the video 
memory block corresponding to 
the first 15 lines to a block starting 
64 positions higher. A powerful 
feature in the Z-80 processor 
allows transfer of blocks of 
characters with a single instruction: 
you need only indicate the source 
block address, the destination 
block address and the number of 
characters to be transferred. In our 
case, however, the area occupied 
by the car must not be touched. 
Transfer must therefore be done in 
several steps. 

Note that when the source and 
destination blocks overlap, as is 
the case here, transfer must be 
done from end to start. Referring 
to diagram A, the order of transfer 
is as follows: 

1) Move block A-A' to block a-a' 

2) B-B' b-b* 

3) C-C c-B* 

4) D-DV C-d' 

5) E-E' e-D' 

6) F-F' E-r 

7) G-G' g-g' 

continued on page 78 
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CONCENTRATION is an 
Integer BASIC program for the 
Apple and requires at least 16 K. 

by Harris Kirk 

Test your powers of 
concentration!! You are 
confronted by 36 closed doors, 
behind which are 18 pair of 
randomly- distributed pictures. 

Just as in the television game, 
the object is to find the matching 
pairs by remembering their 
location in previous turns. 

The game is very unique with 
respect to its detailed graphics. It 
is an excellent party game for 2 or 
more players, although it can also 
be played as 'solitaire'. It is 
chdlenging and just plain fun! 

INSTRUCTIONS 

There are 18 pairs of pictures 
randomly hidden behind 36 doors. 

The object of the game is to find 
more matching pairs than your 
opponent. 

Only two doors may be opened 
at a time. 

If you have chosen a matched 
pair, the doors remain open, and 
you are awarded five points and 
another turn. 

If you fail to find a match, the 
doors close and you lose your 
turn!! 

Use game controls to choose a 
door: 

1) Choose the column, 

2) Hold the button down 
firmly, 

3) Choose the row, 

4) Release the button. 

The game ends when all doors are 
open. 

OPTIONAL 

Player variations: 

1) Game can be played alone 
using paddle by pressing return 
for the second player. 

2) Several i^ople can play as 
two teams (enter team as one 
player). 
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MAKING YOUR OWN PICTURE 
MODIFICATIONS: 

All pictures are plotted by use of 
subroutines, each one starting at 
even multiples of 10. i.e., 20, 40, 
«), etc. 

1) Find a picture that you would 
like to replace by listing lines 20 to 
379. 

2) Delete the appropriate line 
numbers: e.g. DEL 80,98 (note 
that line 99 is needed to return to 
the main program loop and line 
100 is the start of the next picture). 

3) Give your picture a name and 
enter the command 

A$= **NAME": GOSUB 820 at 
the starting point of the subroutine 
(line 80 in the previous example). 

4) The top left corner of the 
picture frame is X,Y. The 
maximum horizontal direction is 
X+4 and the maximum vertical 
direction is Y+4. As an example: to 
place orange dots at the four 
corners of the picture frame, enter 
a line number (between 81 and 88 
in the example) followed by 
COLOR = 9: PLOT X,Y: PLOT 
X,Y+4: PLOT X+4,Y: PLOT 
X+4, Y+4. Any PLOT, HLIN, or 
VLIN will appear correctly, 
provided they are within the limits 
previously mentioned. 

5) You can use any variable 
starting with I, J, K, or L and not 
affect the main program. 

6) You may also add sound to 
your picture by inserting a line 
number followed by POKE 0,P: 
POKEl,D: CALL 2. Pisa 
number between and 255 (low 
number is a high pitch) D is a 
number between and 255 (low 
number is a short tone) The 
command CALL 2 starts a fast 
machine language routine that 
clicks the Apple speaker. It is 
poked into memory in lines 2030 
and 2040. Try the following: FOR 
1= 100 to 10 step -l:POKE 0,1: 
POiOE 1,10: CALL 2 NEXT I (on 
the next line number). 

If you wish to view your picture 
before actually playing the game, 
type the following: (each followed 
by a 'return' ) 



DIM A$(20) 

GR 

GOTO XX (where XX is the first 

line number of your picture, which 

must be an even multiple of 10) 

The bad return error will not 

appear when the program is run. 

8) Be sure to: check that the last 
line in your routine is RETURN. 
SAVE your new version. 

An example of a picture 
subroutine 

Picture: Lighthouse 

Line # Function 

40 Put iighthouse* into A$; print 
A$ using subroutine at 820 

41 Plot lighthouse and rocks 

42 Do the following lines (up to 
line 55) three times 

43 Plot the lighthouse beam, 
using black 

44 Plot the lighthouse 
window,using grey 

45 Wait 

46 Plot the beam, using white; 
plot the window, using yellow 

54 Wait 

55 End of for-next loop 

57 Plot beam, using black; plot 

window, using grey 
59 Return to the main program 

loop 

VARIABLES 

Arrays: 

SC Player's game score 
SUM Player's total score 
CH Status of door (open or 

closed) 
G Contains 2 each of picture 

numbers (0-17) 
PIX Contains 2 each of picture 

numbers (0-17) randomly 

distributed. 
W Picture numbers of the 2 

doors chosen per turn 
C Colors of the door rows 
K Colors of the books in the 

•bookshelf subroutine 



Strings: 

A$ Picture name and 

temporary storage for 
printing a string with sound 
Y$ Name of first player 
Z$ Name of second player 
H$ Holds response to program 
questions 



Single Variables: 



X 

Y 

Z 

I.- 

J.K.L 

II 

X- 

N,YN 

X- 

O.YO 

ND 

M- 

TCH 
TRY 

P 

N 

COL 
CI 

ROW 

Rl 

D 

Dl 

Xl.Yl 
PP 



Horizontal (X) coordinate 

of graphics grid 

Vertical (Y) coordinate of 

graphics grid 

Counter in a pause loop 

Temporary counters 
Holds random position of 
candle flame 

New X and y coordinates of 
goldfish position 

Old X and y coordinates of 
goldfish position 
Number of door choice (1 
or 2) 

Number of matched pairs 

Number of turns (when 

playing as 'solitaire') 

Player number (0 or 1) 

Set to if played as 

'solitaire', otherwise set to 1 

Column number (0-5) 

Column number of first 

door choice 

Row number (0-5) 

Row number of first door 

choice 

Door number (0-35) 

Door number of first door 

choice 

X and y coordinates of first 

door choice 

Pitch of tone poke during 

door closings 



REn CONCENTRAHON 

1 REM BY HARRIS KIRK 

2 REM MAY,1980 
3REH 

4 DIM 5C(2)»CH(36),K(3),Pn(10 

),M(S),G(^0),C(18) 
6 DIM A$(25),Y$(10),Z$(40),m 

(5) 
8 DIM SUH(2):SUH(0)=0:SUH(1)= 



16 imJE: 2800 

17 GOTO 1000 

18 REM PICTURE SUEROUTINES 

20 A$="CAM)LE"! GOSUB 820 

21 C0L0R=6: HLIN X,X+3 AT Y+^J 

PLOT X+2,Y+3: PLOT X+^,Y+3 

22 C0L0R=15: PLOT X+Z,Y+2: COlJ[IR= 
13: PLOT X+2,Y+1 

23 II=X+2 

24 FOR 1=1 TO H 

26 COLOR=0: PLOT n,Y 

28 11= RND (3)+l+X 

30 C0L0R=13: PLOT n,Y: FOR Z= 

1 TO 60*. NEXT Z 
32 NEXT I 
39 RETURN 

10 Ai="LIGHTHOUSE": GOSUB 820 

11 COLOR'=i: VLIN Y,Y+3 AT X+2: 

C0L0R=5: HLIN X+l,X+3 AT Y+ 

12 FOR J=l TO 3 

13 COLOR=05 HLIN X,X+1 AT Y+1 
H COLOR=55 PLOT X+2,Y*i: 

15 FOR 2=1 TO 175J NEXT Z 

16 C0L0R=15: HLIN X,X+1 AT Y+1 
J COLOR=135 PLOT X+2, Y+1 

51 FOR Z=l TO 175{ NEXT Z 
55 NEXT J 

57 COLOR=0: HLIN X,X+1 AT Y+i: 
C0L0R=5: PLOT X+2,Y+1 

59 RETURN 

60 A$="PONY": GOSUB 820 
62 C0L[»,-15 

61 HQN X+l,X+3 AT Y+2J VLIN Y, 
Y+3 AT X+3 

66 PLOT X,Y+i: PLOT X+1,Y+3J PLOT 
X+3, Y+3: PLOT X+1,Y 

67 C0L0R=8: PLOT X+2,Y+2 

68 FOR J=l TO 6 

70 C0L0R=15: PLOT X,Y+i: PLOT 
X+1,Y+1 

71 FOR Z=l TO 65: NEXT Z 

72 COLOR=0: PLOT X,Y+i: PLOT X+ 
1,Y+1 

73 C0L0R=15: PLOT X+2,Y+1 

71 FOR' 1=1 TO 3: POKE 0,191: POKE 
l,li: CALL 2: F0RZ=1 TO 10 
: NEXT Z,I 



75 COLOR=0: PLOT X+2,Y+1 

76 NEXT J 

77 C0L0R=15: PLOT X,Y+i: PLOT 
X+1,Y+1 

79 RETURN 

80 Af="R R CROSSING": GOSUB 828 
8ZC0L0R=15 

81 PLOT X,Y: PLOT X+l,Y+i: PLOT 
X+2,Y+2: PLOT X+3,Y+3: PLOT 
X+1,Y+1 

86 PLOT X,YH: PLOT X+l,Y+3: PLOT 
X+2,Y+2! PLOT X+3,Y+1J PLOT 
X+1,Y 

88 FOR J=l TO 1 

90 FOR 1=1 TO 3 STEP 2 
92 CXDR=1: PLOT X+I,Y+2: POKE 

0,lli: POKE 1,133: CALL 2 

91 COLOR=0: PLOT X+I,Y+2 
96 iCXT I,J 
99 RETURN 

100 A<="BOOKSHELf": GOSUB 820 
102 CaLDR=8: HLIN X,X+1 AT Y+3: 
PLOT X+l,Y+i: PLOT X+3,Y+1 

105 C0L0R=5: PLOT X,Y+Z: PLOT X+ 
1,Y+2 

110 K(1)=7:K(2)=1:K(3)=15 

111 FOR 1=1 TO 3: COL0R=K(I): VLIN 
Y,Y+2 AT X+i: NEXT I 

119 RETURN 

120 A(="QUILT": GOSUB 820 

130 FOR I=X TO X+1 
132 FOR J=Y TO Y+1 

131 COLOR= RND (15)+1 

135 PLOT I,J 

136 NEXT J,I 
139 RETURN 
110 A$="GQU)FISH imr\ GOSUB 820 

112 C0L0R=15: VLIN Y,Y+1 AT X: VLIN 
Y,Y+1 AT X+i: HLIN X,X+1 AT 
Y+1 

in C0LGR=7: FOR 1=0 TO 3: ItIN 

X+1, X+3 AT Y+i: «XT I 
118 FOR J=l TO 15 

150 C0L0R=9:XN=XO+ R»0 (3)-i: F 
XN>3 OR XN<1 TIEN ISO 

152 YN=YO+ RM> (3)-i: F YN>3 OR 
YN<0 T«N 152 

151 PLOT XN+X,YN+Y 

156 FOR Z=l TO 60: »EXT Z: F J» 
15 THEN 158: C()LQR=7: PLOT 
XH+X,YN+Y 

157 xd=xn:yo=yn 

158 NEXT J 

159 RETURN 

160 Ai="(EM%T": GOSUB 820 
163CQL0R=1 

continued on page 74 
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STRA TOBLASTER OUTPOST 

requires an Atari with at least 8K, 
and a Joystick . 

by David Bohlke 

ALERT! ALERT! ALERT! 

STRATOBLASTER OUTPOST 
No. 6: A Slipton invasion force has 
been sighted nnoving into your 
sector. We don't want you to panic 
— but you are Earth's first defense! 

From past experience you know 
that a direct hit is needed to 
vaporize the Sliptons. Yet, you 
have just 75 shots in your mighty 
STRATOBLASTER cannon to put 
the Slipton force in disarray. 
Aiming the STRATOBLASTER is 
easy — you need only push the 
control stick (paddle slot No. 1) to 
the left or right, then press the Fire 
button. Speed is crucial, since you 
must fire before the Sliptons move 
out of your sector. Luckily, they 
don't all come at the same time! 

Your marksmanship is well 
charted. During play, a red bar at 
the top of the screen will display 
the number of hits, and a blue bar 
will show the number of misses. A 
green bar will indicate the number 
of invaders that have entered your 
sector. When the green or blue bar 
reaches the right edge of the 
screen, the invasion will have 
ended. 

When the game begins, you have 
a choice of three possible play 
modes. In a Vertical Invasion, the 
Sliptons will move from the top of 
the screen to the bottom. During a 
Horizontal Invasion, the saucers 
will progress either left or right on 
the display. And for a Random 
Invasion, the targets will move in 
varied directions. At the 
completion of the game, your hits, 
misses, and a percentage will be 
displayed — so several players can 
compete for most hits and/ or the 
highest percentage. 
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STRATOBLASTER 

OUTPOST 



1 GOTO leea 

2 REM STRATOBLASTER OUTPOST 

3 REM b<^ David Bohlke. Co99on lA 

5-15 

subroutine calls for STICK (0) 

command directions. (Atari BASIC 

allows a variable to call a 

subroutine) 

5,6,7 move cannon to right 

5 GOTO 7 

6 GOTO 7 

7 1>=2:G0SUB 58RETW?N 

9-11 move cannon to left 

9 GOTO n 

18 GOTO n 

11 D=-2^G0aJB 50RETURN 

13-15 no action 

13 RETURN 

14 RETURN 

15 RETURN 

50-56 plots cannon 

50 COLOR 4^PL0T 39.47 DRA14T0 C>R DRA14T0 

41.47 

52 C=C+OTF C<3e THEN C=38 

54 IF C>50 T^€N C=50 

56 R=36+ABS(40-C> COLOR 1=PL0T 39;47=DRA 

WTO C.R:DRA14T0 41.47RETURN 

100-120 initialize 

lee GRAPHICS 5+16^C=40:R=36Ttt=^H=8 I1T= 

e^Gosue 50 

110 SETCOLOR 4.0.6 = Din Q<5>.R<5):F0R 1=1 
TO 5:Q(I>=0 :R(I>=0 = NEXT I 
120 SETCOLOR 0.4. 10 SETCOLOR 2.7.10 

200-350 main game loop 

200 

get STICK direction from joystick 

controller, branch to 300 if no FIRE 

200 S=STICK(0) GOSIB S IF STRIG(0)=1 T\€ 
N 300 

210 blue background, 

sound for FIRE 

210 SETCOLOR 4. 7. 9 FOR 1=33 TO 43 SOUND 
0.M0.14:f€XT I 

220-240 direction for laser fire 

220 Y=4:X=<C-36>:fc8+8 

230 IF C<36 Th€N >C=1 Y=(35-C>.t8 

240 IF CM4 THEN X=78 = Y=( C-45 >*8 

250 plot laser beam 

250 CaOR- 2 PLOT C.RDRAWTO X.Y 

260 check 5 targets for hit 

260 L»=0^FOR 1=1 TO 5F0R J=Q(I>+1 TO Q(I 
H3 

262 branch to 280 if hit 

262 LOCATE J.R<I)A' IF U>0 THEN T=rGOTO 
280 



264 else add 1 to miss counter, 
check 75 for end of game 

264 h£XT j^fc:<T rMT=m"+i IF rrr>75 then 

600 

266 plot miss bar, GOTO 290 

266 COLOR 3:PL0T tlT.S GOTO 296 
280 get new target (after hit) 
280 COLOR 4^G0SUe 920 i>;T>=0 

282 red background, hit blast, add 

to hit count, zero target 

282 SETCOLOR 4.4.11^0? I=.33 TO 65 = 30UhC 
0.1.2. H^NEXT I H=H+1 Q';T)=0 

284 plot hit bar 

284 COLOR IPLOT H.0 

290 black background, cancel out 
laser beam 

290 SETCOLOR 4.9.6 CaOR 4^PL0T C.R^Ctf?Al-J 
TO X.Y 

targets move only 70% of the time 

295 IF RHK0K0.3 THEN 206 

300,305 increment time, plot time 

bar, check for end of game 

300 T=T+1TF T>5 THEN T=l 

305 COLOR 2 = PLOT TM. MF TM>75 T^£N 600 

get new target if one leaves screen 

310 IF Q(T)=0 THEN GOSUB 909 Tn=Tn+l GOT 
200 

315 saucer sound, black out saucer 

315 SOUC 0.Q(T;'+R(T>.6.4 = COLOR 4:G0SUe 
920 

320-335 new saucer location 

320 U=MF T/2=INT(T/2) T»J U=-1 
323 IF TD=1 Th€N 335 

339 R(T)=R(T)+INT(RNO<0):S3>+1 
333 IF T0=2 THEN 340 

335 QC T MX T )+INT< Ft^[X ):*5+l ):«aj 

340 Test for new location off screen 

340 IF Q(TX2 OR Q(T:'>74 OR R<T)>44 T>ei 
Q(T)=0=GOTO 200 

350 plot saucer in new location, 
GOTO 200 to continue 

350 GOSUB 910 GOTO 200 

600-612 end of game statistics 

600 GRftPHICS 5+32 PRINT "HITS ";H."niSSE 

S ";m'.INT<K>'(H+MT)tl00>."-;" 

605 PRINT PRINT " HIT FIRE fof next s 

2ite' "; 

607 FOR 1=1 TO 1000 NEXT I 

610 IF STRIG(0>=0 THEN RUN 

612 SOUND 0.RhCK0):fe250. 10.6 GOTO 610 



900 new target location 

9ee Q(T)=INT(RhCX0).t60)+3 R(T)=INKRNa0 
)«20H4 

910 new target color 

9ie COLOR INT(RND<e>.t3>+l 

920 plot new target 

928 A=0(T)^B=l?(T> PLOT A. B PLOT A+4.BPL 
OT ftfl.B-rORAl^TO A+3.fc-l PLOT h+I-B+I^D 
RAMTO A+3.e+l RETURN 

1000- enter invasion options 

18ee GRAPHICS e-F-RINT " STRATOBLASTER 

OUTPOST "^PRINT ^PRINT ^POKE ?52. 1 

leei FOR 1=1 TO 333 MEKT I 

1082 PRIKT "PRESS STICK FOR OPTIONS/' 

PRINT = PRINT "PRESS FIRE TO ENGAGE "'"' 

1063 IF STRIG(0>=e THEN GOTO 190 

1004 POSITION 4.14 IF STICK(0>=15 THEhJ C 

OTO 1063 

1065 TD=TD+MF TD>3 THEN TD=1 

1006 GOSUe TD+ 1006 GOTO 1083 

1007 PRINT #6; "HORIZONTAL INVASION. "RET 
URN 

1008 PRINT «6;"L€RTICAL IWJASIOH "RET 
URN 

1009 PRINT »6;"RAhO0ri IW.iASION. "^RET 
URN 
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A BASIC Compiler in BASIC! 
TINY COMP begins at line 
number 800. Your Source Code 
uses line numbers 1 through 799. 
TINY COMP can compile a subset 
of Level II BASIC. This subset 
includes 26 integer variables, 
GOTO, GOSUB, END. REM, LET, 
*,-. IF, THEN, INKEY$, CLS, 
PRINT® , CHRS$. The cassette 
version of TINY COMP adds 
PEEK, POKE, multiply and divide. 



TINYCOMP 



by Dave Bohike 

Supplied with game program 
"3D TIC-TAC-TOE", which uses 
all of the TINY COMP statement 
set and is ready to compile. 

The extensive manual includes 
several sample programs as 
well as thorough documentation 
of this small compiler for those 
whole like to know "how things 
work" and for those who might 
wish to EXPAND on TINY COMP's 
capabilities. 

includes special SYSTEM 
CSAVE program to allow you to 
create tapes of your compiled 
programs. 

Tape version: $19.95 
Disk version $24.95 

TO ORDER TOLL FREE 
1-800-258-1790 

(In NH Mil 673-5144) 



5.5 




The most 
realistic 
simulation of 
a pressurized 
nuclear reactor 
available . . . 

THREE MILE 
ISLAND 



from 



fnusE 



Is the technology really too 
complex for ordinary mortals to 
handle? Decide for yourself. 

Four spectacular displays 
monitor the containment building, 
turbines, filters, condenser, 
reactor core and pump house. 

Valves, pumps, turbines, filters 
and control rods are individually 
activated by keyboard command. 

Comprehensive documentation 
describes in detail the operating 
mechanisms and component 
interactions. 

Can you avoid all possibility of 
radiation leaks into the 
atmosphere while still making a 
profit? 

Are you fast enough to avoid 
the necessity for extensive 
evacuation of the population? 
Integer BASIC 48K. $39.95 



TO ORDER 
TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



KEYSTROKE 
KARNIVAL 



KEYSTROKE KA RNIVA L is 
an Atari Program for 8K and up, 

by James Garon 

As an alternative to OPEN, 
GET etc. it is possible to check for 



keyboard input during program 
execution by PEEKing at location 
764. If no key has been pressed, 
PEEK(764) will yield 255. If a key 
has been pressed, the following 
table shows what PEEKing will 
reveal at 764: 



KEY 


PEEK(764) 


KEY 


PEEK(764) 


KEY PEEK(764) 


A 


63 


O 


% 


3 


26 


B 


21 


P 


10 


4 


24 


C 


18 


Q 


47 


5 


29 


D 


38 


R 


40 


6 


27 


E 


42 


S 


62 


7 


51 


F 


56 


T 


45 


8 


53 


G 


61 


U 


11 


9 


58 


H 


57 


V 


16 





50 


I 


13 


W 


46 


+ (LEFT) 


6 


J 


1 


X 


22 


•(RIGHT) 


7 


K 


5 


Y 


43 


- (UP) 


14 


L 





Z 


23 


= (DOWN) 


15 


M 


37 


1 


31 


RETURN 


12 


N 


35 


2 


30 


ESC 


28 



To use this information in your 
own programs, you will want to 
POKE 764 with 255 AFTER your 
program discovers that a key has 

EXAMPLE: 



been pressed. This will reset 
location 764 until the next key is 
pressed. 



200 P = PEEK(764) 

210 IF P = 255 THEN 200: REM KEEP LOOPING UNTIL A 

KEY IS PRESSED 
220 POKE 764,255: REM RESET LOCATION 764 FOR NEXT 

KEY 
230 IF P = 6 THEN? "LEFT" 
240 IF P = 7 THEN? "RIGHT" 
250 IF P= 14 THEN? "UP" 
260 IF P= 15 THEN? "DOWN" 
270 GOTO 200 



We have here the beginnings of 
"The Poorman's Joystick 
Routine". If you replace the 
PRINT statements in lines 230-260 
with GOSUBS to the appropriate 
subroutines, you can use the arrow 
keys (no need to press CTRL) to 
control the direction of a moving 



object on the screen, to change the 
SOUND from your TV speaker 
and whatever else your 
programming heart desires. 



o 
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ATARI DOUBLES PRODUCT LINE 
continued from page 19 

232C ports, one of which can also 
be used for 20 ma current loop, 
and an 8-bit parallel printer port. 
It features full duplex operation, 
programming baud rate from 75 to 
9600 baud, choice of stop bits and 
parity, and even automatic 
telephone answering with 
appropriate modem. Different 
pictures of the interface have been 
released. The unit on top of the 
disk drives in the second picture, 
and not the black box in the first 
picture, is apparently the 
production model. The Atari 830 
Modem is apparently the popular 
Cat ™ Modem. 

Among the software packages 
announced are a series of 
accounting packages for small 
business; a series of investment 
analysis programs; language lessons 
in French, German, and Spanish; 
and Space Invaders ( tm of Taito 
Corp.), all on cassette. ^^ 

ATARI EDITOR/ ASSEMBLER 
continued from page 19 

space. The TAB key is useful for 
field separation. 

Op Codes and Operands 

Standard 6502 Operation code 
mnemonics are used, and are listed 
in the manual. Among the 
operands, $ indicates a hex 
number, and # an immediate 
operand. Absolute operands are 
evaluated as 16 bit numbers. 
Absolute indexed operands use a 
comma and X or Y after a 16 bit 
number or variable. Indexed 
indirect operands are written with 
an 8 bit number or variable, X is 
always used and the whole operand 
is enclosed in parentheses. Indexed 
page zero operands are written 
with an 8 bit number or variable, a 
comma, and X or Y. String 
operands are enclosed in quotes 
and use specified directives such as 
.byte. 

Commands 

The command SIZE tells you the 
starting address of the current line 
buffer, the starting address of the 
edit text buffer, and the highest 
address in memory. LOMEM 
allows you to change the location 
of the buffers. Other commands 
include LIST, PRINT, FIND, 
DEL (Delete), NUM (Automatic 
line numbering), REN (renumber), 
REP (Replace), SAVE, LOAD, 
ENTER, and ASM (Assemble). 



Programs can be assembled to the 
edit text buffer, screen printer, or 
disk as well as the indicated 
memory location. 

Pseudo Ops 

A number of directives or 
pseudo operations are available. 
The required directive * = allows 
you to set the memory location at 
which your program will be 
assembled. The other required 
directive is .END, which identifies 
the end of your program to the 
assembler. Most of the directives 
are preceded by a period, and 
include: 

.OPT (Option: List, no list, object, 
no object, errors, no error 
messages, page spacing, or no page 
spacing) 

.PAGE (print page nunibers) 
.TITLE (print title on each page of 
listing) 

.TAB (set field spacing) 

.BYTE (reserve space in memory 

of an operand) 

.DBYTE (reserve 2 bytes of 
memory for each expression in the 
operand, stored most significant 
byte first) 

.WORD (same as DBYTE, except 
that low order bjrte is stored first) 
= (assign a value to a label) 
Demonstration 

Here is a sample program to 
show the format of an assembled 
program. All it does is add 2 4- 2 
and store the result. 



10 ♦"S3002 iSTJyif 


OF PROGRAM 


20 SUK-$3000 iMBMORY FOR SON | 


30 START LDA #2 > FIRST 


NUMBER 


40 ADC #2 iSBCOND HOIIBIR I 


50 STA SUN f STORE 


RESULT 


60 .SND 




ASM 




0000 10 


*« $3002 


1 START OF PROGRAM 




3000 20 SOM 


" $3000 


1 MEMORY FOR SUM 




3002 A902 30 START 


LDA #2 


} FIRST NUMBER 




3004 6902 40 


ADC #2 


; SECOND NUMBER 




3006 800030 50 


STA SUM 


J STORE RESULT 




3009 60 


.END 



My main disappointment with 
the assembly process is that a 
symbol table is not generated at 
the end of the program. 



The Monitor 

The DEBUG program is called 
from the EDIT program by the 
command BUG. It allows the 
following commands: 
DR (display registers) 
CR (change registers) 
Dxxxx (Display memory at xxxx in 
hex) 

Cxxxx (Change memory at xxxx) 
Mxxx yyyy,zzzz (Move memory 
between yyyy and zzzz to new 
location starting at xxxx) 

Vxxxx yyyy,zzzz (Compare 

memory between yyyy and zzzz 

with memory starting at xxxx) 

Lxxxx (Disassemble memory 

starting at xxxx) 

Txxxx (Trace execution of memory 

with disassembly and register 

contents starting at xxxx) 

Sxxxx (Single step through memory 

execution starting at xxxx) 

Gxxxx (Execute program, 

beginning at xxxx) 

X (Return to edit mode) 

A (Transfer to mini assembler) 

The mini assembler allows you 
to assemble one instruction at a 
time until you press return at the 
beginning of an instruction or type 
.END to return to DEBUG. 

Other features 

Eighteen error messages are 
given to assist in finding 
difficulties in your programs, in 
addition to the normal DOS error 
messages that function during disk 
I/O operations. 

Only a minimal selection of 
operating system memory locations 
was provided in the preliminary 
manual for the editor assembler. 
However, more are listed in the 
Basic reference manual, and there 
is an operating system reference 
manual in preparation with 
extensive documentation. I have 
already obtained more than ten 
pounds of printed material, and 
have been very impressed by the 
speed with which Atari is 
assembling complete 
documentation for their computer 
system. 

In conclusion. Atari has 
provided an excellent tool for 
assembly language development. It 
should be well worth the $59.95 
price, especially considering the 
convenience of a ROM cartridge. 



o 



HOW MUCH COMPUTER? 
continued from page 15 

with accessories for special 
applications. If you are serious 
about making money from your 
computer, you will want to add a 
printer. Inexpensive printers like 
the Eaton LRC or Atari 820 are 
good for making line listings to 
improve your productivity as a 
programmer. A slightly better 
printer like the Centronics 737 
(Atari 825 or Radio Shack Line 
Printer IV) is good for printing 
reports, minor word processing, 
mailing labels, and similar 
applications. If you want true 
word processing, then you need a 
letter quality printer such as the 



NEC Spinwriter. Other accessories 
might include an interface and 
modem for time sharing or 
electronic mail, a plotter, a control 
unit for connecting the computer 
to an appliance or lab instrument, 
or any of several dozen other 
items, depending on the 
application. 

You will also need software for 
the application you desire. 
SoftSide will provide you with 
plenty of good games, and also 
teach you the skills necessary to 
write your own application 
programs. In addition, we sell 
programs ready for many 
applications. 



How much should you budget 
for software? That depends on 
your application, but the general 
rule of the last ten or fifteen years 
has been that software costs as 
much as the rest of the system. If 
you are doing a lot of your own 
programming, the same rule still 
holds, when you consider your 
time at a fair value. That is the 
shocker for most people, especially 
those such as my correspondent 
with the new Apple. 

In summary, here is a chart 
listing the items needed for a 
complete general purpose computer 
system based on our three favorite 
computers. Q ^y George Blank 



Radio Shack TRS-80 



Apple II 



Atari 800 



TRS-80 computer 
Level II BASIC 
16K memory 
Color TV 



-General Purpose cassette based system - 

Apple II 
Cassette Player 
Video Modulator 
Color TV 



Atari 800 

Cassette Player 

16K memory 



TRS-80 Computer 
Level II BASIC 
Expansion Interface 
32K memory 
Disk Drive 



-General purpose disk based system - 

Apple II 

48K memory 

Video Modulator 

Color TV 

Disk Drive 



Atari 800 

Color TV 

32-40K memory 

Disk Drive 



Along with this, you will also need software and any special devices such as a printer. 





FROM SENSATIONAL SOFTWARE 

• Super Invasion is the original invasion game, 
with the original moon creatures and faster action 
than any other invasion game. 

• The best Invaders available for the Apple, as 
good in every way as the famous Invaders game. 

• High speed action! • Sound effects! 

• Runs on the Apple II and the Apple II Plus 

Fifty-five aliens advance and shower you with lethal writhing electric worms. As you pick off 
the aliens, one-by-one, they quiclien their descent. They whiz across the screen wearing away 
your parapets, your only defense, coming closer and closer to your level. Super Invasion is the 
original Invasion game with the original moon creatures and faster action than any other invasion 
game on the market. 

Super Invasion is available for only $19.95 on cassette for a 32K Apple II. 




TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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SAILPLANE continued from page 29 



630 Commence first sailplane launch by 

printing cockpit using S/R. 

630 CLStPRINT"YajR 03 "JB$(B) 

640 FORN=lTO1500INEXT 

650 CLS 

660 GiBJB3690 

670 ' 

680 ' 

6^^ Calculate any change in height due to 

change in velocity of sailplane. (So called 
total energy effect - or converting potential 
energy into kinetic energy or the other way 
around). 

690 Z2=(H(B)-S(B))il.0JH(B)=«(B)+Z2 
700 T3=S(B) 

710-720 Calculate height loss assuming a glide thru 
a static air mass. 

710 IFS(B)<50THENT3=60 

720 TM3'^2/50n3=0JH(B)=H(B)-T4 

730 FD(B)=0THei)(B)=360 

740-800 Calculate, from information on compass 
course, the new position of sailplane using 
polar - rectangular conversion. 

740 T5=(D(B)/360)i6»28318 

750 ' 

760 D(B)=INT<D(B))JFDCB»mHEN780JIFD(B)>180THEN7fOJIFD(B)>^0 

THEN800 

770 Tl=6IN(T5)i(S(B)/12)tX(B)=X(B)+TlJT2=Tl/(TAN(T5)+»0l)n(B)=Y 

CB)+T2JGOTrai0 

780 T5=T5-1.5708JTl=SIN(T5)i(SCB)/12)JYCB)=Y(B)-Tin2=Tl/TAN(T5) 

IX(B)=X(B)+T2Ja3TO810 

790 T5=T5-3442IT1=SIN(T5)ICS<B)/12)IX(B)=X(B)-T1JT2=T1/TAN(T5)I 

Y(B)=Y(B)-T2JGOT0810 

800 T5=T5-1J120tTl=SIN(T5)i(S(B)/12) tY(B)=Y(B)+TllT2=Tl/T^CT5) 

JX(B)=X(B)-T2 

810 Apply wind drift. 

810 ]FA3=<2THENX(B)=X(B)+,41ELSaFA3>2ftf®A3<5THENX 
SEIFA3MTHENX(B)=X(B)+2.0 

820-850 Sort through thermals and locate nearest 
one to current position of sailplane. 

820 FOf#=lTO30{ffA3=<2THefTHCN,l)=TH(N4)+»36ELSEFA3>2Aii^^ 

errH(N,l)=TH(Ntl)+lELSEIFft3HTHENTH(N4)=THCN,l)*l»9 

830 NEXTN 

840 E4=31 

850 F«#=lTO30llFAiS(X(B)-TH(N4))>30GOTO870aSEE6=ABS(X(B)-TH(N 

,1 ) ) IE7=ABS( Y(B)-TH(N,2) ) IE5=SQR( (E6'^2)+(E7'^2) ) 

860 1FE4>E5THENE4=E55E8=N 

870 NEXTN 

880 Set cloudbase flag if sailplane is currently 

above cloudbase. 
880 IFH(B)>(AliA5i2500)THENFMaSEFl=0 
890 IFF1=1THENF3=1 

900-1020 Calculate change in height due to sailplane 
flying in sinking or rising air. 

900 IFE4>30THENH(B)=H(B)-(H(B)/400)-IW(10)IGOTO1060 

910 IFTH(E8,3)<0THBI3310 

920 IFE4>15THENH(B)=H(B)-(H(B)/(35+Wi)( 15) ) ) IGOT01060 

930 IFE4=<6GOTO940aSEZ3=TH(E8,3)i60/(E4-5) IGOTO950 

940 Z3=TH(E8t3)i60tGOTO950 

950 FFl=lTHEN960a8EZ3=Z3i((H(B)+1000)/(AliA5i2500))+.2 

960 T8=TH(E8,4) 



970 IFT8<H(B)THENT8=T8/(H(B)+100) 

^0 FT8=>H(B)THENT8=H(B)/(T8+100) 

990 ZM3IT8 

1000 ffH(B)>(AliA5i2500)+4500THENZ3=0 

1010 23=Z3iA4 

1020 H(B)=H<B)+Z3 

1030 IFF1=1THEN1060 

1040 TH(E8,4)=TH(E8,4)+(Ali20) 

1050 IFTH(E8,4)>(AliA5i2500)THENTH(E8,4)=AliA5i2500 

1060 H(B)=H(B)-ABSCCZ/1.5) 

1070 ' 

1080-1250 Print instrument readings. 

1080 PRIHTi769,- "}IPRIKTi897," "|JPRINTi672," »|l 

PRIHTi789," "nPRINTi915," "}tFmMTi925," .00 "JIPRINTeS 

58," "nPRINTi807," "} 

1090 PRINTi671 ,DCB) } JPRINTi787,S(B) } JPRIHTi914,CDrr(H(B) ) } IM1=( C 

H(B)-Z2)H((B))i.02IUl=CIKTCMlilOO)tIFVl=OTHEWl=a 

1100 Ml=Vl/100tPRINT8926,Vl| 

1110 IFCZ=0THENTl=0JGOTO1180 

1120 IFCZ=>40THENTl=3tGOT01180 

1130 IFCZ=<-40THEHTl=-3JGOTO1180 

1140 FCZ=>10THeiTl=2JGOTO1180 

1150 IFCZ=<-10THBITl=-2JGOTOl!80 

1160 IFCZ<10ANDCZ>0THENTl=lJGOTO1180 

1170 IFCZ>-10ANDCZ<0THENT1=-1 

1180 PRINTi(810+Tl),"'^"J 

1190 IFM1>10THENMM0 

1200 IFyi<-10THeWl=-10 

1210 Ml=FIX(Vl/2) 

1220 PtBITe(8634Ml),"'^"} 

1230 PRINTi769,"X="nPraWTi897,"Y="} 

1240 PRINT8771," "}IPRINTi899t" "J 

1250 WINTe771,CINT(X(B)>/10;:PRINTi899,CINT(Y(B))/105 

1260 Test to see if glider has landed (for. 

negative altitude) 
1260 IFH(B)KOTHENL(B)=1JGOT03030 
1270 Test for climb up through cloudbase. 

1270 IFF1=1»I)F2=0ANDE4=<28THEN3320 

1280 If glider is already in cloud jump over 

cloud printing routine. 
1280 FF1=1ANDF2=1««)E4=<28THEN1770 



1290 



Test if glider has emerged from cloud. 



1290 IFF2=1ANDF1=OTHE}0370 

1300 IFF1=1ANDF2=1ANDE4>28TICN3370 

1310 ' 

1320-1330 Wipe off screen. 

1320 T1=ABSC(HCB)/10)-13) 
1330 FORN=0TOTl-nPRINTiNi64," 



'1SNEXTN 



1340 IFF3=1THEN1360 
1350 IFS(B)=H(B)THEN1380 



1360-1370 Clear off old horizon and set new one. 
1360 Tl=^((H(B)/10)-13)tPRMi(Tli64)," 



1^0 Tl=ABS((S(B)/10)-13)IPR3NTi(Tli64),»- 



1380-1750 Sorts through list of thermals. Detect those 
that are in the sector of sky covered in the 
forward view from the cockpit and directs 
control to the cloud printing S/R which 
prints each sorted cloud at the appropriate 
location on the screen. 
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1380 IFD(B)>?B^»«)O(B)=<180THEN15(lll 

1390 IFO(B)>180ANDD(B)=<270TIO(159fl 

1400 IFD(B)>270THEN1680 

1410 FORN=lTO30 

1428 IFrH(N,l)<X(B)ORTH(N,l)>(X(B)+200)THENlW0 

1430 IFTH(N,2)<Y(B)ORTH(Nt2)>(Y(BH200)THEM1480 

1440 G1=TH(N4 )-X(B) JG2=TH(N,2)-Y(B) I63=«(»( (61'^2H(G2^2) K iJ3=€3 

IG4=G1/G3 

1450 G5=ATN(G4/SQR(-G4iG4+1.001)) 

14A0 G5=(G5/A,284)i360IG6=G5-D(B) IFABS(G6)>20THeil480 

1470 Jl=INT((21+G6)il»47)JGOSUB3420 

1480 ICXTN 

1490 GOT01770 

1500 FOI»<=1T030 

1510 FTH(N,1)<X(B)(KTH(K,1)>(X(B)+200)THEII1570 

1520 FTH(N»2)>Y(B)ORTH(N,2)<(Y(B)-200)THEN1570 

IKO G2=TH<N, 1 )-X(B) JG1=Y(B)-TH(H,2) :G3=S«( (G1'^2)+(G2'^2) ) J J3=G3 

JG4=G1/G3 

1540 G5=ATN(G4/SQR(-G4iG4+L001)) 

1550 G5=(((G5/6*284)i360)+90)JG6=G5~O(B)JIFABS(G6)>20THENlS70 

1560 Jl=INT((21+G6)ih47)tG(BJB3420 

1570 HEXTN 

1580 GOTO1770 

1590 FIBI=lTO30 

1600 IFTH(N4)>X(i)ORTH(N,l)<(X(B)-200)THEN1660 

1610 IFTH(N,2)>Y(B)ORTHCN,2)<(Y(B)-20O)THEN166O 

1620 G1=X(B)-TH(N4)IG2=Y(B)-TH(N,2)IG3=SQR((G1'^2)+(G2'^2))IJ3=G3 

:64=G1/G3 

1630 G5=ATNCG4/SQR(-G4iG4+1.001)) 

1640 G5=(((G5/6*284)i360)+180)JG6=(^-O(B)JIFABS(G6)>20THBI1660 

1650 J1=INT((214G6)iU47):GOSUB3420 

1660 NEXTN 

1670 GOTO1770 

1680 FORN=1T030 

1690 IFTH(N,1)>X(B)(»TH(N,1)<(X(B)-200)THEM1750 

1700 IFTHCN,2)<YCB)ORTH(N,2)>CY(B)+200)THEN1750 

1710 G2=X(B)-TH<N,l):Gl=TMCNr2)-Y(B)IG3=S(lR((G1^2)+(G2'^2))IJ»C3 

IG4=G1/G3 

1720 G5=ATN(G4/SQR(~G4iG4+1.001)) 

1730 G5=( ( (G5/6»284)i360)+270) IG6=G5-0(B) IIFAB8(G6)>20THEN1750 

1740 Jl=INT((2l4G6)il.47)IGCBUB3420 

1750 fCXTN 

1760 IFF1=0THENF3=0 

1770 H1=H1+1 

1780-1820 Print stopwatch in cockpit 

1780 R(B)=R(B)+1/120 

1790 T9=R(B)-C]irr(R(B))IT9=CINT(T9i60)/100 

1800 PRINTi^O," .00 "I 

1810 PRIKT@820,CINT(R(B))} 

1820 IFT9=0THEN1840ELSEPRINTi822,STRI(T9)} 

1830 

1840 M(B)=SCB)IK(B)=H(B) 

1850-2080 Control input routine using INKEY for 
single commands and a keyboard PEEK 
for the steering command which needs to 
have a quasi analog function. 

1850 CI=INKEY$ 

1852 FCI="K"ANDQ5=0THENQ5=lJGOTO2080 

1854 IFCf="K"ANMEFlTHENQ5=0 

1^ FQ5=1THEN2080 

1860 PRlfr8677t" m "J 

1870 PRMi^f" "} 

1^0 F0IW=1T042 

1890 T7NPEEK(14;^2) 

1900 IFT7=^2THENCZ=0 

1910 IFT7=16THENCZ=CZ-3 



1920 IFT7=64THENCZ=CZ+3 

1930 IFCZ<-90THBCZ=-90 

1940 FCZ>90THENCZ=90 

1950 IFCZ<0THENPRINTi935,ABS(CZ); 

1960 IFCZ>0THENPfO)iTi938>CZi 

1970 IFCZsOTICNPRINTi935,"0 0"| 

1980 ANIMCYI 

1990 IFA$=""THeC060 

2000 IFAI="8"THENSCB)=S(a)+10 

2010 IFAI="2"THENS(B)=S<B)-10 

2020 IFA$="S"THENQ1=1 

2030 FAI="T"THENQ2=1 

2040 IFA$=»F"THNQ3=1 

2050 IFAI='1"THEI«4=1 

2055 FAI="K"T»CNQ5=1 

2060 NEXTN 

2070 ' 

2080 PRINTi677," "I 

2090 IFS(B)<40THEMS(B)=40 

2100 IFS(B)>120THENS(B)=120 

2110-2140 Direct control to appropriate S/R for 
R,S»T,F functions. 

2110 FQ1:^1THQIGOSUB2800 
2120 IFQ2=lTHENGOSUBmO 
2130 3FQ3=lTHENaJSUB2950 
2140 FQ4=1THENGOSUB3930 
2150 Ql=0!Q2=0iai=0 

2160-21% Calculate new compass heading. 

2160 D(B)=0(B)+CZ 
2170 IFOCB)>360THEND(B)=O(B)-360 
2180 IFD(B)<0THEND(B)=3604OCB) 
2190 D(B)=CINT(D(B)) 

2200 If less than one hour of flight has elapsed 

loop back to start of active program for 
next program loop. 

2200 IFHl=<120THe^90 
2210 IFB=P1THEIC390 

2220-2340 If players hour of flight is over print map 
via S/R and print position report on 
sailplane. 

2220 GOSUB3060 

2230 IFLCB)=lTHENPRINTe769,"LANDED"} 

2240 PRINTi513,BI(B) }"!-"} IPRINTi577,"P0Sm0N"} JPRIMTi641,"REP0 

RT"* 

2250 T6=INT(X<B)/10)+30l]Fr6<30THENT6=30 

2260 IFT6>125THENT6=125 

2270 T7=INT(Y(B)/20)JT7=45-T7JIFT7<1THENT7=1 

2^0 ffT7>40THENT7=40 

2290 FORO=1TQ7 

2300 F0RN=lTO50 

2310 SET(T6,F)JNEXTN 

2320 FORN=1T050 

^0 RESETCT6,T7)INEX™ 

2340NEXTO 

2350 N1=0 

2360 m.(B)=lTHENPraNT8769,» "'} 

2370 B=B+niaCB)=0THEN100 

2380 B^4nia(B)^0THBI100 

2390 At the end of an hour's flight for all the 

competitors a map and position report is 
printed for all competitors in order. 

2390 mmM 

2400 GOSIB3060 

2410 PR3Mre513tBI(B)}"J-"}IPiami577,"PCini£W"r.PWB^ 
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RT"} 

2420 IFL(B)=lTHENPRDfT8769,"LANDED"} 

2430 T6^INT(X(B)/10)i30:iR6<30THDIT6=:30 

2440 IFT6>125THDfT6«125 

2450 T7=INT(Y(B)/20):T7=45-T7:IFT7<1THEKT7=1 

2460 IFT7>40THEMT7=40 

2470 FORO=1T07 

2460 FQR»^lTO50 

2490 SET(T6»T7):NEXTN 

2S00 FQRN»1T050 

2510 RESET(T6»T7)tNEXTN 

2S20NEXTO 

2530 IFL<B)=1THENPRINTB7A9," "} 

2540 ^=BH 

2550 IFB<P1+1THEM2410 

2560 IFL(1):»1ANDL<2)=1^M)L(3)=1T»£N2660 

2570-2640 Adjust cloudbase heights and thermal 
strengths depending on the time of day. 

2570 IFA5<1THENA5=A5^.1 
2580 IF8sOTHENA4=:A44«l 
2590 IFF8=lTHD(A4=A4-.2 
2600 IFA4=>1THENF8=1 
2610 IFA4<::.6THENA4=.l 
2620 IFL(1)=^0THENB=1 
2630 IFL(1)=1THENB=2 
2640 IFL(1)=1ANDL(2)=1THENB=3 

2650 Test to see if randomiser wants to insert an 

unpredictable change in weather conditions 
- if so update weather definition variables. 

2650 IFRM)(8)<=7THEN100aSEAl=RND(3):GOTOB0 
2660 8^:1 



2670 



Calculate finish times. 



2670 T1=W(B)-CINT(W(B)):T1=CIHT(T1i60)/100;W(B)=CINT(W(B))+T 

i:b=b^i 

2680 fb<4then2670elseb=1 

2690 Print results 

2690 CLS:PRINT876»CHRI(23);"R E S U L T S"SPRINT 

2700 IFW(B)=0THEN2780aSEPRINTBi(B);" TOOK";CIMT(W(B))r'/"}(W 

(B)-CIHT(W<B)))il00r'(HRS/HIN)":B=B+l 

2710 IFB<4THEN2700 

2730-2770 Is another game required? 

2730 PRINT:PRINT"AN0THER game? (Y or N)" 

2740 II=INKEY$ 

2750 IFI$="Y"THENRUN 

2760 IFII=""THEN2740 

2770 END 

2780 FB>P1THENB=8^1:GOT02710 

2790 PRINTBi(B);" DID NOT FINISH TASK":B=B+15GOT02710 

2800-2850 Start line S/R. 

2800 IFX(B)>=200THEN2840 

2810 IFY(B)>^200THEN2840 

2820 IFH(B)>3281THEN2850 

2830 R(B)=0:PRINTB20,"'im -GOOD START- im'"}5RET 

URN 

2840 PRINTKO,"'NEGATiyE START - OUT OF POSIHON'"}: RETURN 

2850 PRINT820f"'NEGATM START - TOO HIGH'";:RETURN 

2860-2940 Turnpoint S/R. 

2860 IFNH(BMTHEN2910; 'TURN S/R 

2870 IFY(B)<U2ilOTHEN2900 

2880 IFX(B)<((UlilO)-20)ORX(B)>((UlilO)^20)TNEN2900 

2890 Ma(B)»i:PRINT820r'GOQD TURN AT FIRST TURNPOINT'*'; tRETURN 

2900 PRINTe6»'"NEGATIVE CONTROL AT FIRST TURN - OUT OF POSHION' 

"PtRETURN 



2910 FY(B)>U4sl0THEN2940 

2920 IFX(B)<((U3xlO)-20)ORX(B)>((U3ilO)+20)THEN2940 

2930 HHZ(B)=2:PRINTe20,'"GOOD TURN AT SECOND TURNPOINT'"} ^RETURN 

2940 PRINTe6,"'NEGATIVE CONTROL AT SECOND TURN - OUT OF POSHION 

'"HRETUI^i 

2950-3020 Finish line S/R. 

2950 FX(B)>=200THEN3000 

2960 IFY(B)>=200THEN3000 

2970 IFH(B)>3281THEN3010 

2980 IFMH(B)<2THEN3020 

2990 W(B)=R(B):L(B)=lJQ3=0:CLSSPRINTCHRi(23)JPRINTM48,'""}B$(B 

);% GOOD FINISH 

HELL DONE'";SFORN=1T02600:NEXT:GOT02210 
3000 PRINT§20, "'NEGATIVE FINISH - OUT OF POSIHON'"} {RETURN 
3010 PRINTe20,"'NEGATIVE FINISH - TOO HIGH'"}:RETURN 
3020 PRINTeO,"'NEGATIVE FINISH - TURNPOINTS HAUE NOT BEEN ROUNDE 
D CORRECTLY' "}:RETURN 
3030 CLS:PRINTCHR$(23):PRINT§448»B$(B)}" YOU mE LANDED SAFaY. 

t 

3040 FORN=1T02600:NEXT 
3050 GOT02210 

3060-3300 Map printing S/R. 

3060 CLSJFORN=28T0127:SET(N,0)JSET(N,41):NEXT 

3070 FORN=OT041:SET(28»N):SET(29,N):SET(126»N):SET(127>N)}NE)CT 

3080 FORN=5T040 STEP 55SET(26,N):SET(27,N):NEXT 

3090 FORN=40T0120 STEP 10:SET(N,42)JSET(N+1,42);NEXT 

3100 P0KE15562»55:P0KE15563»48:P0KE15882»52:P0KE15883,48iPQKE162 

02»49:POKE16203>48 

3110 FORN=16340T016380 STEP 5:P0KEN»48:NEXT 

3120 N=16339:POKEN,49:POKEN^5»50:POKENflO»5i;pa<EN+15^52^POKENf2 

O ,53:POKEN+25,54:POKEN+30 ,55;POKEN+35,565POKEN+40 157 

3130 PRINTe969,"X-AXIS"} :POKE16335,94JPRINT8130,"Y-AXIS"} tHlKE15 

497,92JPRINTe376,"360";:PRINT§500,"270 90"}}PRINT8696,"180"} 

:POKE15800 » 160 :POKE15801 1 190 :POKE15802, 180 }F0RN=:21T028:SET( 115>N 

):next:forn=iiitoii9:set(n,22):next 

3140 printe2/'posinon"}:print066,"oisplay"}?forn=3oto95 step 5} 

SET(N,10):NEXT:FORN=10T040 STEF' 3:SET(95,N)SNEXT5PRINTe84,"D0TTE 
D LINE INDICATES SUGGESTED TASK AREA"} :PRINT§160» "HIND DIRECTION 
-> ->"} 

3150 FORN=16079T016088:POKEN»160:NEXT 
3160 F0RN=16143T016152:P0KEN,153JNEXT 
3170 FORN=16207TO16216;POKEN,182JNEXT 
3180 T6=INT(Ul)+27:in6<30THENT6=30 
3190 IFT6>125THENT6=125 
3200 T7=INT(U2/2)JT7=45-T7:iFT7<lTHENT7=l 
3210 IFT7>40THENT7=40 
3220 F0RN=1T06:SET(T6+N,T7):NEXT 

3230 T7=T7-2:T6=T6+3:F0RN=lT03:SEr(T6,T7+N) :SEr(T6+l,T7*N) {NEXT 
3240 T6=INT(U3)+27:ffT6<30THENT6=30 
3250 IFT6>125THENT6=125 
3260 T7=INT(U4/2)JF=45-T7tIFT7<lTHENT7=l 
3270 IFT7>40THENT7=40 
3280 F0RN=1T06:SET(T6+N,T7):NEXT 

3290 T7=T7-2:T6=T6+3:F0RN=1T03;SET(T6,T7+N):SET(T6+1,T7+N)SNEXT 
3300 CZ=OJRErURN 

3310 Z3=TH(E8>3)i25:Z3=Z3/E4:Z3=^Z3iH(B)/(Ali2500) :H(B)4KB)^Z3:6 
OTO1060 



3320 



Screen white out. 



3320 2=^0 

3330 PRINT§Z,STRING$(64,CHR$(191))} 

3340 IFZ>512THEN3360 

3350 Z=Z+64:GOT03330 

3360 F2=1:GOT01770 

3370 Z=576 
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3380 



Clear screen white out. 



^0 PRIMTBZ,STRINGI<M,CHR$(32)); 

3390 TFKMmEmm 

3100 M-61IGOTO3380 

3410 F2=OIGOT01370 

3420-3680 Cloud printing S/R. 

3420 IF^>200TIOy3=200 

mm a2=ftBS((S(B)/io)-i3) 

3440 FJ3>100THOG610 

3450 FJ3>40ANDie:'<100THEN3540 

3460 F.miOTHEN3680 

3^0 al4=-12:d5=12ia4syi+J4IJ5=yi+J5JIFimOT»eU4=:0 

mm TFJS>m¥EMMi 

3490 IFFMTHEM3510 

3500 iCsJ2-5 

3510 FJ2<0THEN3680aSEJ2^(a2i64) 

3520 PRMi^4J4,{»RI(184)HPft[NTi«l^J44l»Slim(GI<J^ 

91))J 

3^ nm(TeJ2+J5,CII^(180)|!GOTO3680 

3540 J4=-8JJ5:^IJ%yi+J4;iJ5=yi+J5{ffiJ4<0TICNJ4=0 

3550 IFJ5>63TIENJ5=63 

3560 1FF1=1THEM3580 

^0 J2=nl2-3 

3560 IFJ2<0THeG680aSEJ2=(J2i64) 

3590 HMriJ2+J4,CHRI<184){IMaHTiJ2+iJ4+l,STWaiBICJ^ 

91))} 

3600 PRINTiJ2+J5»CHRI(180) ; :GOT03680 

3610 J4MIJ5=4IJ4=Jl4J4JJ5=yi+il5{IFa4<0THENJ4=0 

3^0 FJ5>63THENJ5=63 

3630 IFF1=1THEN3650 

3640 J2=y2-2 

3650 IFiJ2<0THEN3680aSEJ2=(il2i64) 

3660 PRBrriJ2+J4|CHRI( 184) } IPRIIfr8J2+iJ4+l ,STRliGI( J5-J4-1 ^CHRIC 1 

91))5 

3670 PRINTe^^J5,Di^(180)| 

3680 RETURN 

3690-3920 Cockpit printing S/R. 

3690 C18IZ=16000 

3700 FORN=0TO125Pa<EZ+N,188IIE)(T 

mo FORH=13T026IPCKEZ+N,140:NEXT 

3720 POKG+27,191tPOI€Z+36,191IPOkC+28,67:POKEZ+29,79IPClKE2*30, 

77lPaKEZ+31,80tP(]KEZ+32,5BIFORN=37T047JPOKE2+N,140INE)Cr 

^30 FClRN=48T063IP0KE2^,1885MEn:Z=Z+64 

3740 FORN=OT012IPOKEZ+M,191J1C)(T 

3750 F0RN=14T038IP0KE2+N491INEXT 

3760 P0KO+39431JP0KEZH0,147JP0KEZ+41447IF11(E2+42,179JP0KE2+4 

3463 JPOKK+44, 163IPaOH5, 131 ;FOKOH6, 191 JP0l(EZ+48, MSIPOOt 

49,143 

3770 FORN=50T063:POKEZ+N491INE5(T 

3780 Z=Z+64JFORN=OT012IPa€Z+N491J>E)CT 

3790 P0l€Zn44915P0l<a+24491 JPfMZ+16,65JP0KE2n7,83IPC)KEZ+18, 

73tP0l€Z+19,^IP0Kn+25t45IF0WI=26T030JP0IO+N460IIC3a 

3800 rai(EZ+31488JF0RN=32T036IPt)KEZ+N444INE)(T 

3810 R3KO+37,43IP0IO+384915P0KEZH6,191IP0l€Z+47,191l«lO 

, 191 JFORN=50TO^tra(EZ+N, 191 JNEXT 

3820 Z=Z+64IFORN=OT012JPOKEZ+N491:NE)(T 

3830 F0RN=14T024JP0KEZ4|I491INEXT 

3840 POKEZH0,93IH)ie+44,94JPOKE+25,86JPCIie+37,86JPa(E^ 

lSP0KEZHl,84IPa€Z-HI2,38{P0l€ZH3,83;P0KE2+46,191IPaMEZ+47491{ 

ra€Z+48,191JF0RN=50TO63IPOI€Z+N491JNE)(T 

3850 Z=Z+64:F«^OT012IPOKEZ+N,191tNe(T 

3860 P0KEZ+14,191IP0KEZ+15,65IP0KEZ+16,76tP0KEZ+17,84IF0RN=24T02 

8JP0KEZ■^N,191INEXT 

3870 P0KEZ+38,191JP0l(EZ'H6,1915Pt3IO-HJ8,lWlP0l€Z+49,188:F0RN^ 

T063JP0KEZ+N491IOT 

3880 Z=Z+64IFO»I=OT012;POKEZ+N491INO(T 



3890 P0KOH3,176JP(MZ+14tl79IP(MZ+15479IPae4-16431IF0RN==17 

T046JP0KEZ+N,191JNE)(T 

3900 F0RH=^T063IP0KEZ+Ntl915HEKT 

3910 fimiTg((ABS((H<B)/10)-13))i64)t" 



^0 RETURN 

3930-3960 Relaunch S/R. 



3930 FXY(B)=lTHENPRINTtlO,"'YOU HAME AU€ADY TAKEN YOUR ONE PER 

HHTED REUUIO'";Q4=OIRETURN 

3940 IFR(B)=>lTHENPRINTilO,"'RElJWCH NOT WM PERMnTED'"SQ4=0:R 

ETUW 

3950 PRINTe20,"'RELAUNCH E3(ECirTING'«JIPRINTi((ABS((H(B)/10)-13)) 

164), » 

"}{H(B)=3000ISCB)=60IN(B)=60JD(B)=45JKCB)=3000IX(B)=200SY( 
B)=200 JR(B)=0 l)(Y(B)=l IQ4=0 JCZ=0 
3960 PRINTi((ABS((W(B)/10)-13))i64),"-- 



"JSRETURN 



LIST OF VARIABLES FOR SAILPLANE 



ARRAYS: 

D(l-3) = 
H(l-3) = 
K(l-3) = 
L(l-3) = 
R(l-3) = 
S(l-3) = 
TH(1.30,l-4) = 



Compass heading 
Height 

Previous height 
Landings flags 
Time taken 
Current speed 
Thermal array ..... 

Line 1 = X-coordinate 

Line 2 = Y-coordinate 

Line 3 ™ Strength (pos. or neg.) 

Line 4 = Height of 

vertical centroid of thermal 

above ground level. 

Finish times 
Previous speed 
X-coordinate of sailplanes 
Relaunch flags 
Y-coordinate of sailplanes 



VV(l-3) = 
W(l-3) = 
X(l-3) = 
XY{l-3 ^ 
Y(l-3) = 

String Array 

B$(l-3)= Name of competitors 

SINGLE VARIABLES 

Al — Thermal strength multiplier 

A2 = Weather type 

A3 = Wind factor 

A4 = Multiplier for strength of thermal 

at particular time of day. 

A5 = Cloud base factor 

B = Player counter 

CZ = Control store for INKEY commands 

El = X-coordinate of closest thermal 

E2 = Y-coordinate of closest thermal 

E3 = Strength 

E4 = Diagonal distance to closest thermal 

E5 = Temporary trigonometric store 

E6 = Temporary trigonometric store 

£7 __ Temporary trigonometric store 

E8 = Temporary store to hold identity 

of closest thermal 
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ALL USED IN 
PRINTING 
CLOUDS ON 
SCREEN 



Fl = Cloudbase flag 

F2 = Is screen white out operative (1 = yes, 0= no) 

F3 = Flag to indicate requirement to print horizon if 

descending out of cloud. 

F8 = Flag to indicate middle of convective period 

F9 = Flag to inhibit printing of new Met. Forecast if 

randomiser changes weather during middle of game. 

Gl = Temporary X-coordinate 

G2 = Temporary Y-coordinate 

G3 = Diagonal distance to thermal 

G4 = Sine of angle from datum 

G5 = Angle of thermal from datum 

G6 = Angle of thermal from course line of sailplane 

Jl = Position left and right on screen (Values 0-60) 

J2 = Position of horizon on screen (0-9) 

J3 = Distance from cloud USED IN CLOUD 

J4 = Left limit of screen odtktt^ DnTTT-TXTr: 

J5 = Right limit of screen P^^^T ROUTINE 

Ml = Time taken in current go (up to one hour) 

PI = Number of players (1 to 3) 

Ql = Start flag 

Q2 = Turn flag 

Q3 = Finish flag 

Q4 = Relaunch flag 

Tl-T5= Temporary stores 

T6 = Launch time 

Ul = X-coordinate of first turnpoint 

U2 = Y-coordiante of first turnpoint 

U3 = X-coordinate of second turnpoint 

U4 = Y-coordinate of second turnpoint 

VI = Variometer 

Z = Cloud print location store 

Z2 = Total energy height change value 

Z3 = Value for thermal lift before allowance is made for 

height above ground and height above or below 

vertical centroid of thermal. ^^ 



5PQDL 



by Dr. Miles A. Smither 



Double your computer's 
ability! Now you can run a 

line printer and continue 
with your program without 

waiting for your printout. 

Spool automatically 

intercepts all LPRINTs, 

LLISTs, and NewDOS JKL 

output, stores it in a buffer 

at the top of memory, and 

drives the line printer while 

the program continues. 

Select a buffer size in 

memory appropriate to your 

program from several 

options. Can be used from 

BASIC or DOS; does not 

require any modifications to 

BASIC programs. 

Requires 32 or 48K disk 
system. $19.95 



TO ORDER 

TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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SAVE YOUR 




(CRASHED) SCRIPSIT 



32 K or 48 K TRS-SO Disk Systems, 

Several times I have lost work 
because my TRS-80 crashed back 
to DOS from Scripsit. Scripsit 
does not allow reentry without 
zeroing the current file. The 
following procedure will allow you 
to recover a file that is still in 
memory, but lost due to such a 
problem. 

You will need a copy of 
RSM/2D from Small Systems 
Software (still this editor's favorite 
program!) and the ability to 
convert Hex numbers to decimal. 

Once the program has crashed to 
DOS READY, remove the diskette 
from drive and insert the 
RSM/2D diskette. This has a very 
short boot routine that will not 
interfere with the resident program. 

Press RESET to boot the 
RSM/2D loader. Select the version 
that will load in the top of memory 
in your computer, and load the 
program. 

Use the A command to search 
for your text file. I use the 
command A 7000. When you find 
the program, write down the 
starting and ending points. Convert 
these numbers to POKE addresses. 
A POKE address is a decimal 
number up to 32767. After that, it 
is the decimal equivalent of the 
Hex number minus 65536. Thus, 
7FFF Hex equals 32767, and 8003 
Hex equals 32771-65536 or -32765. 

If you have trouble converting a 
number from Hex to Decimal, use 
this process. Assume that you have 
a four-digit Hex number, such as 
72CF. 

Multiply the left digit by 4096: 
7 X 4096 equals 28672. 

Multiply the next digit by 256: 2 
X 256 equals 512. 

Multiply the next digit by 16: 12 
X 16 equals 192. 

Write down the decimal 
equivalent of the remaining digit: 15. 

Add these four numbers: 29391. 
This is your decimal number. 



Remember that in the Hexadecimal 
system, A equals 10, B equals 11, 
C equals 12, D equals 13, E equals 
14, and F equals 15. 

Now, if your number is greater 
than 32767, subtract 65536 to get 
the POKE address. For example, if 
you had 82FE, the decimal 
equivalent is 33534. Subtracting 
33534 minus 65536, we get a 
POKE address of -32002. We now 
know that our text file is located in 
memory starting at 29391 and 
ending at -32002. All we need to 
do now is go to disk BASIC 
without disturbing the text area, 
PEEK our text our of memory and 
write it to a disk file, then reload 
Scripsit, and load our file back in. 

If our program starts at 29391, 
we can proceed by inserting a 



SYSTEM diskette (it is best to 
keep fresh disks on hand with 
DOS and BASIC already on them, 
but any disc that has enough free 
space for the file and no AUTO 
message will do) into drive and 
rebooting DOS. 

Now we enter BASIC, protecting 
our text area by reserving memory 
right below our text, with the 
command: BASIC 29390 
(NewDOS), or BASIC and 
answering Memory Size with 29390 
(TRSDOS). 

Now we need to write a program 
to save the program on disk. This 
program can be used by simply 
changing the starting and ending 
points from 29391 and -32002 to 
the values you find. 



10 OPEN, "0" 


, 1, "RECOVER/ TXT.O" 


20 FOR M = 


29391 TO 32767 


30 PRINT # 


1,CHR$(PEEK(M)); 


40 NEXT M 




50 FOR M = 


-32768 TO -32002 


60 PRINT # 


1,CHR$(PEEK(M)); 


70 NEXT M 




80 PRINT # 1,CHR$(0) | 


90 CLOSE 





Now type RUN and your 
program will store the contents of 
memory in a file called 
RECOVER/ TXT. Line 80 
terminates the file with a zero to 
tell Scripsit where the text ends. 
All that is left is to load Scripsit 
and then the file RECOVER/ TXT. 



Of course, this same method can 
be used to recover almost anything 
in memory and store it as a disk 
file. The Scripsit example is just to 
start you thinking. If memory is 
tight, go back to BASIC specifying 
only one file buffer to save nearly 
600 bytes, ^^ii. 

® 

by George Blank 
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Mountain Hardware, Inc. 



THE APPLE 
CLOCK. 

The Apple Clock from Mountain Hardware keeps time 

and date in 1mS increments for over one year. On-board 

battery backup keeps the clock running in the event 

of power outage. Software controlled interrupts are 

generated by the clock. That means you can call up 

schedules, time events, date printouts ... all in real 

time on a programmed schedule. 

EASYTOUSEI 

The Apple Clock is easily accessed from BASIC using routines 

carried in on-board ROM. With it, you can read time 

and program time-dependent functions for virtually any interval. 

From miliiseconds to days, months or a year. 

PLUG IN AND GO! 

Plug the Apple Clock into a peripheral slot on your Apple II and 

you're ready to go. 




ROMPLUS+ 



NEW EXPANDABILITY. 

ROMPLUS+ is a peripheral board whose added features can turn the APPLE* computer Into the most 

powerful personal computer available today. ROMPLUS+ provides six sockets to accept individually 

addressable 2K ROM's or EPROM's. Keyboard FllterTw a 2K ROM program, comes Installed on the 

ROMPLUS+ board and adds many useful features to your Apple, including: • Upper and lower case 

ietters. •Multiple user-defined character sets. • Colored or inverse-colored letters. • Keyboard macros 

—two key- stroke, automatic typing of multiple, user-defined 
words or phrases. Including BASIC and DOS commands. 
• Mixed text and graphics. • Improved cursor control. 
STOP LIST and END LIST. • Works with integer BASIC, 
RAM or ROM Applesoft, and DOS. • And more . . . 
quick to learn. Easy to use. • Software support provided 
on disk includes demonstration programs and two 
Editors that allow you to define your own characters or 
keyboard macros. In addition to the Keyboard Filter ROM, 
ROMPLUS+ offers five sockets for ROM or EPROM, plus "scratch- 
pad" RAM. And, sophisticated firmware on ROMPLUS+ allows one, 
two, or more^f its chips to be used simultaneously for programs 

longer than 2 K. 




IHRRM5llii/^S9 6 SOUTH ST , MlifORD. NH 03055 

To order call TOLL-FREE 1-800-258-1790 (In NH call 673-5144) 

The iotiwsre lichsngt A HirdS*df (O'v ot HobnnHe A Sont tnterpfi\fy irn ) S<)/rS>c/e Pub'x^fion^ 
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Sound for the Apple. TRSSO, 
and Atari! 

Anyone who owns a TRS-80, 
Atari 800, or Apple computer has 
the capability for sound effects. 
Three programs for using these 
sounds (one for each computer) are 
presented here. Although all three 
programs do the same thing, they 
are very different. The main 
difference is that the TRS-80 does 
not have built-in sound 
capabilities, the Apple does not 
have built-in sound routines, and 
the Atari has both. Therefore, 
sound on the TRS-80 and Apple 
must be added by a machine 
language program. The TRS-80 
program sends signals out the 
cassette port, which can be picked 
up through an audio amplifier, 
such as Soundware, available with 
three demonstration programs 
from TSE for S24.95. One simply 
removes the plug from the AUX 
jack in the tape recorder and plugs 
it into the amplifier for sound. The 
Apple program uses the Apple's 
built-in speaker for sound. On the 
Atari, you can control the pitch, 
distortion and loudness of each of 
four separate voices independently 
and from BASIC, giving it a slight 
advantage. 

The TRS-80 program uses a 
string variable, S$, to hold the 
notes to be played. Each note 
consists of two characters, the note 
duration (1-255) and the note 
pitch (also 1-255 with 1 being the 
highest on the scale). The program 
then jumps to a machine language 
program which plays the notes. On 
the Apple program, the ampersand 
(&) is defined as a note playing 
routine. (See April's SoftSide: 
Apple for details on the 
ampersand.) A statement Hke '& 
T50,100' would play one note with 
a pitch of 50 and a duration of 
100. The limits for the duration 
and pitch are the same as with the 
TRS-80 program, 1-255. On the 
Atari, the notes are played using 
the SOUND command. An 
example of a BASIC sound 
command is 'SOUND 1,100,10,7'. 
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You can have SOUND 
on YOUR computer!!! 



That would produce a sound from 
voice 1 with a pitch of 100, a 
distortion of 10, and a loudness of 
7. The voice must be in the range 
of 0-3, the pitch 1-255, the 
distortion an even number from 0- 
14 and the loudness 1-15. Any 
note will be played until an END 
statement is encountered or until 
another note is played using the 
same voice. To shut off a voice, 
play a note to that voice with a 



loudness of zero. In this program, 
the variables V, T and L may be 
set to different values for the voice 
number, tone and loudness to be 
used. 

Sound can add to any program, 
making it more interesting to the 
user, and, with a little imagination, 
the possibilities of sound are 
almost endless. 

Listing for the TRS-80 : 



100 CLEARIOOO 

110 F0RX=32512T0325785READA:P0KEX,A:NEXTX 

120 DEFUSR=«H7F00' FOR LEVEL U - POKE 16526, 0:POKE16527, 127 

130 DATA 20542740,126,50,66,127,35,94,35,86,235,43,58,61,56,20 

3,87,192,58 

140 DATA 66,127,183,200,61,200,61,50,66,127,35,86,30,0,35,70,62, 

1,211,255 

150 DATA 16,254,70,60,211,255,16,254,70,122,183,32,7,123,183,40, 

212,61,40 

160 DATA 209,27,27,16,241,24,225,0 

170 CLS:PRINT"PHASER SOUNDS":FORP=lT01flOSTEP2JS*=S$+CHR$(2)+CHR$ 

(P)JNEXTP 

180 F0RI=lT05:U=USR(VARPTR(S$)){NEXn 

190 PRINT}PRINT"OLD MACDCWIALD" 

200 F0RT=lT012:READA,B:S$=CHR$(B)+CHR$(A):U=USR(VARPTR(S$)):f€XT 

T 

210 DATA 106,88,106,88,106,88,142,88,126,88,126,88,142,170,84,88 

220 DATA 84,88,94,88,94,88,106,255 

230 PRINT;PRINT"CLEMENnNE" 

240 FORT=lTO30:REAOA,B:S$=Clft'$(B)+CHR$(A)JU=USR(yARF-TR(S$)):NEXT 

T 

250 DATA 138,44,138,44,138,108,180,108,110,44,110,44,110,108,138 

,108,110,44 

260 DATA 110,44,86,108,86,108,102,44,110,44,128,255,128,44,110,4 

4,102,108 

270 DATA 102,108,110,44,128,44,110,108,138,108,138,44,110,44,128 

,108,180 

280 DATA 108,150,44,128,44,138,255 

290 PRINT:PRINT"L0H notes - PAUSES BETHEEN FIAYING TIMS" 

300 FORJ=lT09:S$=CHR$(l)+CHR$(255):FORI=lT020:K=USR(yARPTR(S$)): 

Fa?P=lTOd 

310 feP,I,j:PRINT{PRINT"MISCELLAiCOUS" 

320 F0RI=2T0127STEF'25S$=S$+CmiKl)+CM}$(128-I)+CHR*(l)+CHR$(128+ 

I):^EXTI 

330 F0RT=1T07JU=USR(VARPTR(S$)):NEXTT 

340 S$=""JPRINT 

350 FORP=100T01STEP-3:S$=S$+CHR$(2)+CHR-«(P)!NEXF 

360 F0RP=1T088STEP4JS*=S$+CHR$(1)+C*$(P):NEXTP 

370 F0RI=lTO5:U=USR(yARPTR(S$)):PRINTCHR$(29);"RED ALERT"} 

380 U=US;(yAf»>TR(S$) ) 5PRINTCtf?$(29) ;STRING$(9,143) } :^EXTI 



continued on page 68 



Exciting 
Entertaining 
Software 
for the 
Apple II and 
Apple II Plus! 

If you liked "Invaders", you'll 
love ASTEROIDS IN SPACE by 
Bruce Wallace. Your space ship is 
traveling in the middle of a 
shower of asteroids. Blast the 
asteroids with lasers, but beware 
— big asteroids fragment into 
small asteroids! The Apple game 
paddles allow you to rotate your 
space ship, fire its laser gun, and 
give it thrust to propel it through 
endless space. From time to time 
you will encounter an alien space 
ship whose mission is to destroy 
you, so you'd better destroy it 
first! High resolution graphics and 
sound effects add to the arcade- 
like excitement that this program 
generates. Runs on any Apple II 
with at least 32K and one disk 
drive. On diskette — $19.95 





Q 






TO ORDER: 
CALL TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 
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YOU CAN HAVE SOUND 
continued from page 66 

Listing for the Apple in Applesoft 



100 REH MfOtSMO TONES 

110 REM BY 

120 REH HARK CROSS 

130 REH 

110 REH 

150 GOSUB m 

160 TEXT 5 HOfE 

170 PRINT "FWfiER S01M)S" 

180 FOR I = 1 TO 5: FOR P = 1 TO 

100 STEP 2: i TP,2: NEXT PI NEXT 

I 
190 FOR PAUSE = 1 TO lOOOJ NEXT 

PAUSE 
200 F-RINT : PRINT "OLD HACOONALD 

210 S T106,128: S T106,128: 4 Tl 

06,128! & T112,128 
220 8 T126,1285 & T126,128: S Tl 

12,255 
230 & T81,128: i TBI, 128! 8 T91, 

128: 8 T94,128 
210 F-OKE 805,3: 8 T106,128: REH 
805 PLAYS TRIPLE LENGTH NOT 

E 
250 F«<E 805,11 REH RETURN TO N 

ORfW. LENGTH 
260 FOR PAUSE = 1 TO 1000! NEXT 

PAUSE 
270 PRINT : PRINT "CLEHENTINE" 
280 8 T188,61! 8 T188,61 
290 8 T188,128! 8 T255,128: 8 Tl 

50,61! 8 T150,61 
300 8 T150,128! 8 T188,128! 8 Tl 

50,61! 8 T150,61 
310 8 n26,128! 8 T126,128! 8 Tl 

12,61! 8 T150,61 
320 8 T168,255! 8 T168,61! 8 T15 

0,61 
330 8 T112,128! 8 T112,128! 8 Tl 

50,61! 8 T168,61 
310 8 T150,128! 8 T188,128! 8 Tl 

88,61! 8 1150,61 
350 8 T168,128! 8 T2S5,128! 8 T2 

00,61! 8 T168,61 
360 & T188,255 
370 FOR PAUSE = 1 TO 1000! NEXT 

PAUSE 
380 PRINT ! PRINT "LOW NOTES - P 

AUSES BETWEEN PLAYING TOf£S" 



390 FOR J = 1 TO 9! FOR I = 1 TO 
100! 8 T255,l! FOR PAUSE = 1 
TO J! NEXT PAUSE,I,J 

100 FOR PAUSE = 1 TO 1000! NEXT 
PAUSE 

110 PRINT ! PRINT "HISCEUJVEOUS 

II / 

m FOR I = 1 TO 127! POKE 805,^ 

i S T128 - 1,15 POKE 805,15 4 

T128 + 1,15 NEXT I 
130 FOR PAUSE = 1 TO 10005 NEXT 

PAUSE 
m PRINT 5 PRINT "RED ALERT" 
150 FOR I = 1 TO 55 FOR P = 100 TO 

1 STEP - 25 & TP,35 NEXT P 
160 FOR P = 1 TO 88 STEP 25 i TP 

,25 NEXT P,I 
170 END 
180 RESTORE 5 REM THIS SUEWXJTI 

NE POKES THE TONE 
190 REM PLAHNG PROGR^ INTO HE 

MORY 
500 DATA 201,81,208,15,32,177,0, 

32,218,230,138,72,32,183,0,2 

01,11,210,3,76,201,222,32,17 

7,0,32,218,230 
510 FOR I = 768 TO 8335 READ P5 POKE 

I,P5 NEXT I 
520 DATA 101,131,3,131,1,133,0,1 

70,160,1,132,2,173,18,192,13 

6,208,1,198 
530 DATA 1,210,7,202,208,216,1 

66,0,208,239,165,3,133,1,198 

,2,208,211,96 
510 R€M CALL TONE SUE: WITH AMFt 

RSAND T PITCH COrtW DURAHON 

550 REM PITCH AND DURAUON MUST 

BE 255 OR LESS 
560 REM F-OKE 805, NWBER OF TIM 

ES TO REPEAT THE NOTE 
570 REM DEFAULT LOCATION 805=1 
580 F-OKE 1013,765 POKE 1011,05 POKE 

1015,3 
590 RtTURN 



Listing for the Atari : 



50 L=10:T=1I0U=8 

lee cxAPHics e PRINT "ph^^ser soucs" 

lie FOR X=l TO 5 = F0R P=l TO 166 STEP 3 

120 SOH) U.P,T.L:^CXT P=^€XT X 

130 PRINT =PRINT "OLD mCOONALD" 

140 FOR X=l TO 12 = READ A.B^SOUND U.A,T,L 

150 FOR 1=1 TO B^NEXT rSDUND U,0.0.0 NE 

XT X 

160 DATA 106.108.106.108/106.108.142/108 

. 126. 108. 126. 108. 142.200.84. 108.84. 108.9 

4/108.94.108.106.255 

165 PRINT :PRINT "aEMENTUt"- 

170 FOR X=l TO 30:READ A/6 SOLWD U.A/T/L 

180 FOR 1=1 TO B = NEXT I SOJt€ U.0,0.0:NE 

XT X 

190 DATA 188.64/188.64.188.128.255.128.1 

50/64. 150/64/ 150/ 128. 188. 128. 150.64/ 150. 

64/ 126. 128. 126/ 128. 142.64. 150.64 

200 DATA 168/255.168/64/150/64/142/128/1 

42/ 128. 150.64/ 168/ 64/ 150. 128. 188. 128. 188 

/64/ 150.64/ 168/ 128.255/ 128 

219 DATA 200.64/168.64/138.255 

220 PRINT = PRINT "LOW NOTES - PAUSES BET 
ICEN NOTES" 

23B FOR J=l TO 9 = F0R 1=1 TO 20 = SOtlC U.2 
55/T.L = S0UND U.0.0/0 
240 FOR P=l TO J = NEXT P^hCXT I^NEXT J 
250 PRINT ^PRINT "MISCELLANEOUS" 
260 FOR X=l TO 3 FOR 1=0 TO 127 SOUND 0. 

1*2/10/10 

262 SOUND f.255-I*2.10.10-SOUND 2.1.10.1 

0:souc 3.255-1. 10. i0=ic>rr i=f€>a x 

265 SOUND 0.0.0.0^SOU!X) 1/0/0.0 S0UH3 2. 

0/0/0:SOUW 3.0/0/0 

270 PRINT =PRINT "RED ALERT" 

288 FOR X=l TO 5 = FOR P=100 TO 1 STEP -3 

290 SOUND U/P.T.LFOR 1=1 TO 2^NEXT rNE 

XT P 

300 FOR P=l TO 88 STEP 4:S0UHJ U.P.T.L = N 

EXT p:f€XT X 



For those interested, an assembly 
listing of the TRS-80 machine 
language tone maker follows: 

continued on page 69 
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7FO0 


00100 




ORG 


7F00H 




■ 


7F00 CD7F0A 


00110 START 


CALL 


flA7FH 


iGET USR ARGUMENT 


\ 


7F03 7E 


00120 




LD 


A,(HL) 


5GET LENGTH OF STONG 




7F04 32427F 


00130 




LD 


(COUNT), A 


JPUTINCOWT 




7F07 23 


00110 




INC 


HL 


{ADVANCE WRPTR POINIbK 


1 


7F08 5E 


00150 




LD 


E,(HL) 


JPUT STRING ADDRESS 


( 


7Ffl9 23 


00160 




INC 


HL 


;P0INIbK IN 




7FflA56 


00170 




LD 


D,(HL) 


JTHE DE REGISTER PAIR, 




7F0BEB 


00180 




EX 


OE,HL 


;THEN TRANSi-LK TO HL. 




7F0C2B 


00185 




DEC 


HL 


iSTART ONE UiUKL 




7FflD 3^1038 


00190 PLAY 


LD 


A, (11100) 


;SCANKBD 




7Flfl UBb/ 


00200 




BH 


2,A 


{CHECK FOR BREAK KEY 




7F12C0 


00210 




RET 


NZ 


;iF BREAK IS HIT, RETURN 




7F13 3M27F 


00220 




LD 


A, (COUNT) 


;get cmtLM count 




7F1(5B7 


00230 




OR 


A 


JIS n ZLMJ'!* 




7F17C8 


00210 




RET 


Z 


;yes, return 




7F18 3D 


00250 




DEC 


A 


JIS n one? 




7F19C8 


00260 




RET 


Z 


jdcohplete pair, return 




7F1A3D 


O0270 




DEC 


A 


{DECREMENT AGAIN 




7F1B 32127F 


00280 




LD 


(COUNT),A 


{PUT BACK IN CHAR. COUNT 




7F1E23 


00285 




INC 


HL 


{ADVANCE TO OURAHON 




7F1F56 


00290 




LD 


D,(HL) 


{PUT DURATION I 256 




7F20 lEOO 


00300 




LD 


E.O 


{INTO DE PAIR. 




7F22 23 


00310 




INC 


n. 


ttOmCE TO PITCH 




7F23 46 


00330 SOUND 


LD 


B,(HL) 


{GET PnCH 




7F21 3E01 


00310 




LD 


A,l 






7F26 D3FF 


00360 




OUT 


(255),A 


{CYCLE ONE 




7F28 lOFE 


00370 LOOPl 


DJC 


LCWPl 


{DELAY FOR PITCH 




7F2A 46 


00380 




LD 


B,(H.) 


{GET PnCH BACK 




7F2B3C 


OD100 




INC 


A 






7F2C D3FF 


00110 




OUT 


(255),A 


{CYCLE THO 




7F2E lOFE 


00120 L00P2 


DJNZ 


L00P2 


{DELAY FOR PHCH 




7F3B 16 


00130 




LD 


B,(HL) 


{GET PnCH AGAIN 




7F31 7A 


00110 L00P3 


LD 


A,D 


{CHECK MSB OF DE 




/F32 B7 


OfllH 




OR 


A 


{FORZLKU. 




7F33 2007 


00118 




JR 


NZ.JUMP 


{NO, CONT 




7f-3b 7B 


00152 




LD 


A,E 


{YES, CHECK LSB 




7F36B7 


0D1S6 




OR 


A 


{FOR ZERO 




7F37 28M 


00160 




JR 


Z,PLAY 


{F YES, NEH NOTE 




7F39 30 


00161 




DEC 


A 


{HAS DE A ONE 




7F3A2801 


00168 




JR 


Z,PLAY 


{IF YES, NEH NOTE 




7FX IB 


00172 JW 


DEC 


DE 


{DECREMENT DURATION 




7Fa) IB 


00176 




DEC 


DE 


{TUICE 




/l-3t lOFl 


00180 




DJNZ 


L00P3 


ilQOP FOR DURAHON 




7F10 18E1 


00188 
00189 




JR 


Stmt 


{CONTINUE NOTE UNTIL 
{DURATION IS {MR. 




0001 


00510 COUNT 


DEFS 


1 


{STORAGE: AREA 




0001 


00520 




END 




{THAT'S ALL FOLKS! 




00000 TOTAL ERRORS 












COM 7F12 00510 


00130 00220 00280 


® 




JUMP 7F3G 00172 


00118 








LOOPl 7F28 00370 


00370 










L00F2 7F2E 00120 


00120 










LO0P3 7F31 00110 


00180 










PLAY 7F0D 00190 


00160 00168 








SOtJ^D 7F23 DD330 


00188 










START 7F00 00110 














seRsafcioRal 
softwape 

AIR TRAFFIC 
CONTROLLER 

This real-time machine language 
program puts you in the chair of a 
busy air-traffic controller. 27 prop 
planes and jets are depending on 
you as they take off, land and fly 
over your air space. You give orders 
to turn, maintain a holding pattern, 
change altitude, approach and land 
at either of two airports. 

Written by an air traffic controller, 
this realistic fast-paced simulation 
includes navigational beacons and 
the requirement that planes take off 
and land into the wind. The 
program's continuously variable 
skill level assures that you won't 
soon tire of this instructive and 
absorbing simulation. 

In Air Traffic Controller you 
assume responsibility for the safe 
flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude. 
During your shift &s a controller in 
charge of this airspace 26 aircraft 
become active and under your 
control. Jets and prop planes have 
to be guided to and from the two 
airports, navigational beacons and 
ten entry/exit fixes. The aircraft 
enter the controller's airspace at 
various altitudes and headings 
whether or not you are ready. 

Air Traffic Controller retains the 
basic realism of air traffic control. 
This program requires the same 
steady nerves under pressure and 
the same instant, almost instinctive, 
analyses of complex emergencies 
which are demanded of a 
professional air traffic controller. 
But "ATC" adds the excitement and 
well-defined goals of a game. This 
is just a simulation, and all 
passengers left in air traffic limbo 
Dy a paniclced player will live to 
fly another day. 

Air Traffic Controller is 
available for the 16K TRS-80, the 
Apple II, and Apple II plus on 
cassette for $9.9S 

TO ORDER 
TOLL-FREE 

1-800-258-1790 



(lnNHcan673-S144) 
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MOD PROG 
continued from page 24 

whether there is a next line. If 
there is, jump back to line 1 and 
keep looking; otherwise, end the 
program. 

Variables: 

A, A-f 1, A-h2, A-h3: correspond 

with X, Y, A, B in format 

example,respectively. 

AH- 4: beginning of the program 

information in the line. 

B: loop to skip Modprog lines. 

CT: character to change to. 



LN: current Hne number. 
NP: position of two locations 
preceding next line number. 



TC: character to change. 
X: loop to search Hne. 



DEFINTA-Z:A=PEEK(165^8)+PEEK(165^9))i256:FORE^OT02:A=PEEK(A)+PE 
EK(A+1)i256:NEXTJINPUT"STATEI1ENT/CHAR^TER to OmSE (NUHEiER)";T 
CtlNFtrfSTATEHENT/CHATACTER TO CHANGE TO (NU>^R)";CT 

1 NF'=F'EEK(A)+P'EEK(A+1)x256:LN=F"EEK(A+2)+PEEK(A+3)i256:F(M=A+1T0 
ff-lJIFF'EEK(X)=TCTHENPC»<EX,CT:PRINT"JUST CHANGED LINE";LN 

2 f€XTX:A=NF':iFF'EEK(A)+PEEK(A+l)=0THOf'RINT"^ DONEI^IENDELSEl 



TRS-80 Codes Chart 


ABS 


217 


DEFINT 


153 


INP 


219 


NAME 


169 


RSET 


172 


AND 


210 


DEFSNG 154 


INPUT 


137 


NEW 


187 


RUN 


142 


ASC 


246 


DEFSTR 


152 


INSTR 


197 


NEXT 


135 


SAVE 


173 


ATN 


228 


DELETE 182 


INT 


216 


NOT 


203 


SET 


131 


AUTO 


183 


DIM 


138 


KILL 


170 


ON 


161 


SGN 


215 


CDBL 


241 


EDIT 


157 


LEFTS 


248 


OPEN 


162 


SIN 


226 


CHR$ 


247 


ELSE 


149 


LEN 


243 


OR 


211 


SQR 


221 


CINT 


239 


END 


128 


LET 


140 


OUT 


160 


STEP 


204 


CLEAR 


184 


EOF 


233 


LINE 


156 


PEEK 


229 


STOP 


148 


CLOAD 


185 


ERL 


194 


LIST 


180 


POINT 


198 


STR$ 


244 


CLOSE 


166 


ERR 


195 


LLIST 


181 


POKE 


177 


STRINGS 196 


CLS 


132 


ERROR 


158 


LOAD 


167 


POS 


220 


SYSTEM 174 


CMD 


133 


EXP 


224 


LOC 


234 


PRINT 


178 


TAB( 


188 


CONT 


179 


FIELD 


163 


LOF 


235 


PUT 


165 


TAN 


227 


COS 


225 


FIX 


242 


LOG 


223 


RANDOM134 


THEN 


202 


CSAVE 


186 


FN 


190 


LPRINT 


175 


READ 


139 


TIMES 


199 


CSNG 


240 


FOR 


129 


LSET 


171 


REM 


147 


TO 


189 


CVD 


232 


FRE 


218 


MEM 


200 


RESET 


130 


TROFF 


151 


CVI 


230 


GET 


164 


MERGE 


168 


RESTORE 


. 144 


TRON 


150 


CVS 


231 


GOSUB 


145 


MID$ 


250 


RESUME 159 


USING 


191 


DATA 


136 


GOTO 


141 


MKD$ 


238 


RETURN 146 


USR 


193 


DEF 


176 


IF 


143 


MKI$ 


236 


RIGHTS 


249 


VAL 


245 


DEFDBL 155 


INKEY$ 


201 


MKS$ 


237 


RND 


222 


VARPTR 192 



]LIST 









A = PEEK 


(103) + 


PEEK (104) * 




256: FOR B = 1 


TO 4:A = PEEK 




(A) + 


PEEK (A 


+ 1) * 256: NEXT 




: INPUT 


" STATEMENT/CHARACTER 1 




TO CHANGE (NUMBER) " ;TC: INPUT 




"STATEMENT/CHAR CHANGE TO (N 




UMBER) " 


;CT 




1 


NP = PEEK 


(A) + 


PEEK (A + 1) * 




256:LN 


= PEEK 


(A + 2) + PEEK 




(A + 3) 


* 256: 


FOR X = A + 4 




TO NP 


- 1: IF 


PEEK (X) = T 




C THEN 


POKE X , 


CT: PRINT "JU 




ST CHANGED LINE 


: ";LN 


2 


NEXT X:A 


= NP: IF PEEK (A) = | 




AND 


PEEK (A 


+ 1) = THEN 




PRINT 


"ALL DONE! I!" : END | 


3 


GOTO 1 







Mod-Prog in Applesoft 

Below is a listing of the 
Applesoft version of Mod-Prog, 
which allows you to change any 
character or statement token in a 
program to any other character or 
token. The Unes below must 
appear at 0-3 in your program. 
The variables used are the same as 
those in the TRS-80 version. 
Applesoft tokens appear on page 
121 in the Applesoft manual, and 
the ASCII codes are on pages 
138-9 of the same book, ^g^ 



70 




KU 



UNIQUE 80FTWAPIE FOR THE 





ym iiin 

The Oil Crisis Game 



With the help of the Apple, this game puts you on the other side of an Oil Crisis ... as the Chief Executive 
of Engulf Oil. As a helpless public lines up at your stations, you attennpt to turn crisis into cash, making your 
"Windfall Profits". Huge gains (or losses) accrue from your manipulation of prices, wages, foreign suppliers, 
stocl< sales and collusion with the competition. 

For Apple II and ll-plus computers 

Requires 32K (48K with disl^ and RAM Applesoft) 

Cassette $14.95 

Disi<ette $19.95 



C©impy=r^^ 



A series of four programs designed to enhance the user's reading ability. A sequence of increasingly 
complex skills, from simple character recognition to identification of rapidly displayed words Is presented in 
the first two programs. In the third program, vocabulary practice is provided using synonyms and antonyms 
as a tool. Finally, user response to high speed sentence presentation builds skills in speed and 
comprehension. 

For Apple II and ll-plus computers 
Requires 32K RAM and Disk Drive 
Disk $24.95 



TO ORDER TOLL-FREE 

1 -800-258-1 790 (in NH can 673-5144) 




TheSaHn^are Exchange 

market Bosket 

TO ORDER TOLL FREE 

1.800-258-1790 



SOFTWARE 
FOR THE 
TRS-80 



(In NH call 673-5144) 



^ GAMES 
TRS-8Q Opera Theatre 

Magnificent sound! by Richard Taylor 

Level II. 16K $9.95 

Challenge 

Word game with sound by Richard Taylor 

Level II, 16K $9.95 

Opera Theatre Plus Challenge 

on disk, 32K $19.95 

Bridge Challenger 
by Personal Software 

Level II, 16K $14.95 

Invasion 

by Chris Freund 

Level II. 16K $9.95 

Disk $14.95 

X-WIng Fighter II 
by Chris Freund 

Level II, 16K ,.$9.95 

Taipan 

by Art Canfil 

Level II, 16K $9.95 

Sargon Chess 

by Dan and Kathe Spracklen 

Level II, 16K $19.95 

Sargon II 

by Dan and Kathe Spracklen 

Level II, 16K $29.95 

on disk $34.95 

Amazin' Mazes 
by Robert Wallace 

Level II, 16K $9.95 

Snake Eggs 

With sound by Leo Christopherson 

Level II, 16K $14.95 

Life Two 

With sound by Leo Christopherson 

Level II, 16K $14.95 

Android NIm 

With sound by Leo Christopherson 

Level 11, 16K $14.95 

Bee Wary 

With sound by Leo Christopherson 

Level II. 16K $14.95 

Mastermind II 
by Lance Micklus 

Level II. 16K $7.95 

Tycoon 

by David BohIke 

Level II. 16K $7.95 

9 Games for Preschool Children 
by George Blank 

Level II. 16K $9.95 

End Zone II 

by Roger W. Robitaille 

Level II. 16K $9.95 

Space Battles 
by Level IV 

Level II, 16Ktape $14.95 

32Kdisk $19.95 

Star Trek 

by Lance Micklus 

Level II, 16K (May 1980 issue) $14.95 

Adventures on Tape 
by Scott Adams 

Level II, 16K $14.95 

Choose one: 

Adventureland: Magical beings, perils and puzzles! 

Pirate's Cove: Clue m a bloodsoaked book. 

Mission Impossible: Foil the saboteur, save the 
reactor! 

The Count: Protect your neck! Who do you think lives 
here? 

Voodoo Castle: Remove the curse from Count 
Cristo. 

Strange Odyssey: The ruins of an ancient alien 
culture? 

Fun House: Takes all your brains to get past the gate! 

Pyramid of Doom: Watch out for the Nomad! 

Ghost Town 
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Adventures on Disk 

by Scott Adams 

$39.95 for three-game combinations: 

1) Mission Impossible, Pirate's Cove, Adventureland 

2) Voodoo Castle. The Count, Strange Odyssey 
$24.95 for two-game combinations: 

3) Fun House, Pyramid of Doom 
Adventure Sampler 

by Scott Adams 

Mini-version of Adventureland, serves as introduction 

Level II. 16K. $5.95 

PorkBijrel 

by George Blank 

Level II. 16K. $9.95 

Barricade 

by Small Systems Software 

Machine Language $9.95 

Pentofflinoet 
by James Garon 

Level II. 16K.... $7.95 

Mean Chackert Machine 
by Lance Micklus 

Level II. 16K tape $19.95 

Disk $24.95 

Kriegtpiel II $14.95 

Time Trek 

by Joshua Lavinsky 

Level II, 16K $14.95 

Kamikaze 

by Russell Starkey 

Level II. 16K $7.95 

Wordo 

from Microfantastic Programming 

Level II. 16K.. $9.95 

Fsstgammon 

from Quality Software 

Level II, 16K... .....,..$19.95 

Cribbige 

by Roger W. Robitaille Sr. 

Level II. 16K.. .............. .,.-..... ..$7.95 

Balactic Empire 
by Doug Carlston 

Level 11. 16K $14.95 

Galactic Trader (a sequel) 

by Doug Carlston 

Level II. 16K $14.95 

GaiactlG Revolution 
by Doug Carlston 

Level II. 16K ................. $14.95 

Gilaetic Trtder and &nplre 

ondisk32K........ ..$29.95 

AU 3 on disk $39.95 

Airmail Pilot .$7.95 

Air Traffic Controller $7.95 

Alrltitit 

by Small Systems Software 

Level lor II, 4K ..$9.95 

Lost Dutchman's Bold 
by Terl Li 

Level II, 16K $9.95 

Original Adventure 

by Microsoft as played on POP-10 

32Kdisk.... $29.95 

Pigskin (Football) 
by Acorn Software 

Level II. 16K $9.95 

PR Dogfight 
by David BohIke 

Level II, 16K....... $7.95 

Ting Tong 

from Acorn Software 

Machine Language, with sound 

Level II. 16K $9.95 

Journey to the Corner of the Earth 
by Greg Hassett 

Level 11. 16K $7.95 

Sao SoftSide on cassfttos for additional games 
Dstsstones of Ryn 

cassette $14.95 

disk $19.95 



HOURS: 

MONDAY -FRIDAY 

9 AM to 9 PM 

SATURDAY 

11 AM to 3 PM 
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EASTERN TIME 



Starfleet Orion 

cassette $19.95 

disk. $24.95 

invasion of Orion 

cassette $19.95 

disk $24.95 

Morloc's Tower 

cassette $14.95 

disk $19.95 

Rescue at RIgel 

cassette $19.95 

disk $24.95 

Temple of Apshal 

cassette $24.95 

disk $29.95 

Interlude 

cassette $14.95 

disk $17.95 

B-1 Bomber $15.00 



Nukewar $15.00 

Midway Campaign 

$15.00 

North Atlantic Convoy 

Raider $15.00 

Planet Miners 
$15.00 

PinbaH 

cassette $14.95 

disk $20.95 

Amateur Astronomy 

Handbook 

cassette ...... $14.95 

Computer Bismarck ^ ^ _ 

cassette $49.95 

ifC BUSINESS 

inventory System 11.3 

by M. Kelleher 

Improved version $79.95 

Inventory 'S' 

by Roger W. Robitaille, Sr. 

Level II, 16K tape $24.95 

32K disk/without invoicing $39.95 

with invoicing . — $59.95 

Payroll 

by Stephen Hebbler 

Disk 32K $39.95 

Appointment Log 
by Michael Kelleher 

Level II, 16K $9.95 

Mail List II 
bySBSG 

32Kdisk $49.95 

Small Business Bookkeeping 
by R.W. Robitaille, Sr. 
Level II, 16K with journal 

disk $36.95 

tape ...$31.95 

without journal 

disk $29.95 

tape $24.95 

On Line invoicing 

by Stephen Hebbler 

1 disk, manual; 32K, 1 drive, line 

printer $39.95 

Accounts Recelvable(with invoicing) 

by Stephen Hebbler 

3 disks, 2 manuals; 32K, 2 drives, line 

printer $69.95 

CCA Data Management System 

from Personal Software 

Ready for transfer to disk, with manual 

Tape $74.95 +$2 

^ SPECIAL PURPOSE 

HIstograph/Scattergram 

by Gary Breschini 

Level II. 16K 



.$9.95 



Tiny Comp A BASIC Compiler in BASIC 
bv David Bohike 

Tape $19.95 

Disk......... $24.95 

RPN Calculator 
by Russell Starkey 

Level II, 16K $9.95 

Ham Radio 

by Michael Kelleher 

Level II. 16K $9.95 

Ham Radio 

Advanced version for 32K 

disk $24.95 

Electronic Assistant 
by John Ad am son 

Level II. 16K $9.95 

Basic Statistics 
by Steve Reisser 

Level II, 16K ^95 

Magic Paper Calculator 
by Russell Starkey 

Level II, 16K........ $14.95 

Keyboard 80 (Improved) 
by John Adamson 

Level II. 16K.. ...$9.95 

Text-80 

by Frank B. Rowlette, Jr. 

32K disk systems $59.95 

Scrlpsll $95 ♦ $2 

Dynamic Data Base 

by Ken Knecht 

Manual and 3 programs on disk for 32K or larger 

systems with one or more drives $39.95 

>|C PERSONAL 

Typing Tutor 
by 80 US 

Level II, 16K $19.95 

I Ching/Blorhythms 

together $9.95 

Secrets of the Tarot 
Cards of Fortune 

together $9.95 

Numerology 

by John T. Phlllipp 

32Kdisk $14.95 

Personal Finance 
by la nee Micklus 

Level II, 16K $9.95 

Advanced Personal Finance 
by Lance Micklus 

32Kdisk... ..$24.95 

Home Financial Management 
by Michael Kelleher 

Level II. 16K... ....$9.95 

Periodical Crass Reference 
by Dave Stambaugh 

Level II. 16K $14.95 

32Kdisk .....$19.95 

Roots 

by Bill Sholar 

32K disk $19.95 

)^C UTILITIES 

T-Short 

by Web Associates 

Level II, 16K $9.95 

ZM) Zap Command 

disk $29.95 

IRV 

by Robin Mork 

Level II. 16,32, and 48K 

cassette $24.95 

disk $29.95 



APL-80 3.0 

by Phelps Gates 

Deluxe version— 32K disk $39.95 

Level II, 16K tape— reduced features, no course or book 

...$14.95 

Book (separately) $16.95 * $3 

File Manager 80 
by Nepenthe 

32Kdisk ...$49.95 

Automated Disk Directory 
by George Blank 

^K disk, requires NEWDOS....... ..,..$14.95 

STAD 

Trace and Debug Monitor for tape and disk systems 16, 

32 and 48K on one tape .......... . . ..... . . . $24.95 

NIWDOSbyApparat........... ....$49.95 

NIWDOS+ by Apparat.... ................ ...$^.95 

NIWDOS 80 by Apparat .......$149.00 

RSM2 by Small Systems Software 

Level II. 16K..... .....................$26.95 

RSM2D by Small Systems Software 

Disk for 16-48K on one tape ................. $29.95 

KVP by Lance Micklus 

Tape* 232 ..........$14.95 

Disk .........$19.^ 

SHOSnart Terminal 
by Lance Micklus 

Level II. 16K. ..............$49.95 

ST80D Smarter Terminal 
by Lance Micklus 

For Disk $79.95 

ST80-UC dedicated to THE SOURCE 
by Lance Micklus 

Level IL16K............ $24.^ 

ST80III 

by Lance Micklus $150.00 

Micro Text Editor 
by Don Coons 

Level II, 4K or 16K , $9.95 

Level III BASIC 

by Microsoft $49.^ 

Level i in Level II 
by Apparat 

Levetll. 16K ..$15,00 

FORTRAN 
by Microsoft 

32K. 2 disks $80.00 * $2.50 

Assembler 
by Microsoft 

32K $80.00 * $2.50 

FORTRAN Plus Msenriiler $150.00 * $5 

Spool 

Will print an ASCII file to a parallel line prirtter at the 
same time you are using your computer for another 
program. For ^K disk systems only. Will NOT work 
with NEWDOS (2.3 or VTOS 3.0 OK). 

Disk $24.95 

Cross Reference Utilities 

by Lance Micklus 

Level 1 1 cassette versions 

XREF ....,..........;........ $19.95 

RENUMX (XREF with RENUMBER and rescue after 

reset) $24.95 

RENUMBER separately ....$7.^ 

RX— Cross Reference for Disk 
by Lance Micklus 

32K. Idisk $24.95 

RENUMBER 

by Lance Micklus 

The full-featured RENUMBER program. One version 

now works in 16K. 32K. or 48K .............. . $7.95 

System Copy 

by Kalman Bergen 

Level II. 16K.... ...$9.95 

Floppy Disk Diagnostic 
by Dave Stambaugh 
Disk with manual K4.95 



^ BOOKS 
Sargon Hmdbook 

by Dan and Kathe Spracklen $15.95 + $1 

The BASIC Handboiric 

by Dr. David A. Lien $14.95 + $1 

Z-80 Instruction Handbook 

by Sceibi Publications $5.95 + $i 

The Little Book of BASIC Style 

by John Nevison $5.95 + $1 

Pathways Through the ROM 

$19.95 + $1 

TRS-80 Assembly Language 
Programming 

by William Barden. Jr .$3.95 + $1 

APL — An Interactfve Approach 

by Gilman and Rose $16.95 + S3 

Learning Level II 

by Dr. David A. Lien $15.95 + $1 

Z-80 Software CourmM Guide and (^okbook 

from SceIbi Publications $15.95 + $1 

TRS-80 Disk and Other Mysteries 

by Hal-vard Pennington $22.95 + $1 

TRS^O Interfacing 

by Jonathan Titus $8.95 + $1 

Sieret fiitfde to Computers 

by Russ Walters S5.95 + $1 

Informitiim Management System 

P.I.M.S $11.95 + $1 

Caleuliting wHh BASIC $8.95 + $1 

Untferstamiing Micro Computers 

......,., $9.95 + $1 

Take my Computer Plean 

$5.95+$1 

Learn Micro Computers 

$14.95+$1 

Micro Computer PotPourri 

$3.95 + $1 

^ SURPLUS 
Cassettes: Boxes of 10 each 

C-10..... $6.95 + $1 

C-20... $7,95 + $1 

Diskettes: 

Dysan (premium quality) 

Box of 5 $29.95 * $1 

BASF 

Box of 5 $19.95 + $1.50 

Box of 10 $34.95 + $2 

Case of 100 $299.00 + $3 

Scotch 

Box of 10 $39.95 + $2 

DMcitU Storigi tox $5.00 -^$1 

Ftoppy Armof" 

Protective envelopes for shipping floppy disks. 

5 pack $4.95 + $1 

SoftSlde Vinyl Binders $4.95 ^ $1 

Tape Recorder Alignment Kit $9.95 + $1 

Floppy INsk Savers $14.95 

Floppy Disk Refills $7.95 



• No sales tax. 

• All C.O.D.'s or special 
delivery orders are a mlnimuin 
of $5.00 for special handling. 
For more details descriptions of 
our software and supplies send 
for the TSE Catalog • it's FREE! 
Write or call today for your copy: 



NOTICE 

All prices are subject to change 

without notice. The Software 

Exchange is not responsible for 

typographical errors, including 

prices. 

* TRS-80 is a trademark of Radio Shack 
division of Tandy Corporation - makers 
of the TRS-80, and Video Genie. 
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??IVIOVING?? 

TO CORRECT OR CHANGE YOUR 

ADDRESS ATTACH LABEL FROIM YOUR 

LATEST COPY HERE AND PRINT NEW 

ADDRESS BELOW: 



Name «. 
I Address 
City__ 



.State. 



-Zip. 



MAIL TO: The Software Exchange, PC Box 68, Mllford, NH 03055 
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CONCENTRATION continued from page 

16A \LSH X,X+4 AT Y+IJ HON X,X+ 
4 AT Y+2: HUN X+l,X+3 AT Y+ 
3: PLOT X+2,Y+1J PLOT X+1,Y; 
PLOT X+3,Y 

179 RETIRN 

180 Ai="PICNIC TABLE"! GOSUB 820 
182 C0L0R=8: HLIN X,X+4 AT Y 
181 PLOT X+l,Y+i: PLOT X+3,Y+1J 

PLOT X+2,Y+2: PLOT X+l,Y+3 
J PLOT X+3,Y+35 PLOT X+4,Y+ 
V, PLOT X,Y+1 

199 RETURN 

200 Ai="BEER HUG"J GOSUB 820 
203 C0L0R=15J VLIN Y,Y+4 AT X+2 

: VLIN Y,Y+1 AT X 
205 HLIN X,X+2 AT Y+4: VLIN Y+1 

,Y+3 AT X+i: PLOT X+3,Y+3J PLOT 

X+3,Y+1 
210 C0L0R=13: FOR Z=l TO 1501 NEXT 

Z 
212 FOR I=Y+3 TO Y STEP -1 
214 PLOT X+l,i: FOR Z=l TO 150 J 

NEXTZ 
216 NEXT I 

219 RETURN 

220 A$="SAILBOAT": GOSUB 820 
224 C0L0R=2J HLIN X,X+4 AT Y+4S 

COLOR=1J VLIN Y,Y+3 AT X+1 

226 C0L0R=15: VLIN Y,Y+2 AT X+2 
! VLIN Y+1, Y+2 AT X+3: PLOT 
X+4,Y+2 

239 RETURN 

240 A$="BED"5 GOSUB 820 

242 C0L0R=8; VLIN Y,Y+4 AT X+45 
VLIN Y+1, Y+4 AT XJ HLIN X, 

X+4 AT Y+3 
246 COL0R=15: HLIN X+1, X+3 AT Y+ 

2: PLOT X+3,Y+1 

259 RETURN 

260 A$="TOASTER"J GOSUB 820 

264 C0L0R=5J FOR M+2 TO Y+4J HLIN 
X,X+4 AT IJ NEXT I 

265 C0L0R=15J PLOT X,Y+2S PLOT 
X+4,Y+2J PLOT X,Y+4! PLOT X+ 
4,Y+4: VQN Y,Y+1 AT X+i: VLIN 
Y,Y+1 AT X+3 

267 COLOR=0: PLOT X+2,Y+2} FOR 
Z=l TO 200{ NEXT Z 

268 VLIN Y,Y+1 AT X+ll VLIN Y,Y+ 
1 AT X+3 

270 C0L0R=5J PLOT X+2,Y+2} COLOR= 
O: PLOT X+2,Y+3{ FOR Z=l TO 
550: NEXT Z 

272 C0L0R=5J PLOT X+2,Y+3; COLOR= 
O: PLOT X+2, Y+2; C0L0R=13J VLIN 
Y,Y+1 AT X+i; VLIN Y,Y+1 AT 
X+3 
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274 POKE 0,90: POKE 1,58! CWl 
2 

279 RETURN 

280 A$="BOILING POT"! GOSUB 820 
282 C0L0R=13! HLIN X,X+2 AT Y+2 

! HLIN X,X+2 AT Y+3 
284 C0L0R=8! HLIN X+3,X+4 AT Y+ 
2 

286 C0L0R=5! GOSUB 296! COLOR=11 
! GOSUB 296! C0L0R=9! GOSUB 
296 

287 FOR 1=1 TO 125! COLOR= RND 
(2)«15! PLOT RM) (3)+X, RND 
(2)+Y! NEXT I 

288 COLORED 

289 HLIN X,X+3 AT Y! HLIN X,X+3 

AT Y+1 

290 C0L0R=5! HLIN X,X+2 AT Y+4 
293 GOTO 299 

296 HQN X,X+2 AT Y+4! FOR Z=l TO 
250! NEXT Z 

299 RETURN 

300 A$="DO0R CHBCS"! GOSUB 820 

302 C0L0R=8! HLIN X,X+4 AT Y 
305 C0L0R=13! VLIN Y+1, Y+2 AT X! 
VLIN Y+1, Y+3 AT X+2! VLIN 

Y+1, Y+4 AT X+4 
310 POKE 0,113! POKE 1,200! CW.L 

2 
312 POKE 0,125! POKE 1,200! CALL 

2 
314 POKE 0,118! POKE 1,200! CALL 

2 
316 POKE 0,174! POKE 1,200! CALL 

2 

319 RETURN 

320 A$="CIGARETTE"! GOSUB 820 

322 C0L0R=15! HLIN X,X+4 AT Y+4 

! C0LOR=13! PLOT X+4,Y+4! FOR 
Z=l TO 200! NEXT Z 

323 C0L0R=1! PLOT X,Y+4 

324 FOR K=l TO 9 

326 COLOR=0! VLIN Y,Y+3 AT X! VLIN 
Y,Y+3ATX+1! C0L0R=5! PLOT 
X,Y+3 

327 FOR I=Y+2 TO Y STEP -1 
330 L=X+ RND (2) 

332 PLOT L,I! FOR Z=l TO 26! NEXT 

Z 
335NEXTI 
337 NEXT K 

339 RETURN 

340 A$="SHISS FLAG"! GOSUB 820 
344C0L0R=1 

345 FOR I=X TO X+4! VLIN Y,Y+4 AT 

I! NEXT I 
350 C0L0R=15! HLIN X+1, X+3 AT Y+ 

2! VLIN Y+1, Y+3 AT X+2 



359 RETURN 

360 A$="PACKAGE"! GOSUB 820 

363 C0L0R=15! FOR I=X TO X+4! VLIN 

Y+2,Y+4 AT I! NEXT I 
365 C0L0R=1! VLIN Y+1, Y+4 AT X+ 

2! HLIN X,X+4 AT Y+3! PLOT 

X+3,Y! PLOT X+1,Y 
379 RETURN 

820 REM PRINTS PICTURE fWHE 

821 F ND=2 THEN PRINT 

822 TAB 24! PRINT Af}! RETURN 
1000 GOSUB 1990 

1010 REM INITIAL COM>niONS 
1020 FOR 1=0 TO 35!CH(I)=1! NEXT 

I! REM 'CLOSE' ALL DOORS 
1030 SC(0)=0!SC(1)=0!HTCH=OITRY= 


1040 GOSUB 1600 
1050 REH 

1060 REH BEGIN MAIN LOOP 
1071 REH 

1080 FOR P=0 TO N! REH P=PLAYER 
1090 GOSUB 1270 
1100 ND=0! REH ND=DOGR NDt 
1110 GOSUB 1410 
1120 H(ND)=PIX(D)! REH SM€ EACH DOOR 

1130 GOSUB 1790 

1140 GOSUB Pn(D)«20+20I REH PLOT T 

HE PICTURE BEHIND THE DOOR 
1150 IF ND=1 THEN 1110 
1160 TRY=TRY+1 
1170 IF H(1)*H(2) THEN 1200! REH NO H 

ATCH 
1180 GOTO 1310 
1190 GOTO 1090 
1200 FOR Z=l TO 500! NEXT Z 
1210 GOSUB 1870 
1220 NEXT P 
1230 GOTO 1080 
1240 REH 

1250 REH END OF HAIN LOOP 
1260 REH 

1270 REH PRINTS PLAYER N«t 
1280 CALL -936! VTAB 23! GOTO 1290 

+10IP 
1290 PRINT Y$}! RETURN 
1300 PRINT Zi!! RETURN 
1310 REH ORM£E FLASH ON MTCH 
1320 REH AND INCREASE SCORE 
1330 FOR K=l TO 3 
1340 FOR J=9 TO STEP -9 
1350 COLOR=J 
1360 FOR 1=0 TO 18 STEP 6! WJN 

0,36 AT 18+1! VQN 0,36 AT 

18-Ii HLIN 0,36 AT 18+1! HLIN 

0,36 AT 18-1 



1370 POKE 0,(I+4)x2: POKE 1,10: CALL 


1730 REM TO DROP ♦ CHOSEN 


2630 HLIN 0,39 AT J+i: POKE 0,250 


2 


1710 REM RESULT IS 18 PAIRS OF 


: POKE 1,25: CALL 2 


1380 NEH I,J,K 


1750 REM NU«ERS THAT ARE PICTURE 


2610 NEXT J,i: FOR 2=1 TO 300: NEXT 


1390 sc(P)=sc(P)+5jhti:h=mtch+i: if 


1760 REM SUBROUTINES IN PKO 


Z 


MTCH=18 THEN 2590 


1770 FOR L=36 TO 1 STEP -i:J= RND 


2650 TEXT : CALL -936: IF N=0 THEN 


HOO GOTO 1190 


(L):pix(l-i)=G(J): fori=jto 


2720 


im REM GET DOOR THRU POL'S 


l:g<i)=g(i+i): next i,l 


2660 FOR 1=0 TO i:SU«(I)=SUM(I)+ 


1420 REH GET COLUW 


1780 return 


SC(I): NEXT I 


1130 COL= PDL (P)i5/255JX=C0LI6+ 


1790 REM OPEN DOOR W/SOUM) 


2670 TAB 5; PRINT "PLAYER" J : TAB 


1 


1800 COL0R=0 


19: PRM "GAME";: TAB 32: PRINT 


im C0L0R=15{ HQN X,XH AT 38 


1810 FOR I=X+1 TO X STEP -1 


"SERIES" 


H50 IF PEEK (-16287+P)>127 THEN 


1820 VLIN Y,Y+1 AT I 


*?^,nft TAP "i* Pf?THT " "♦• T^P 


£OClU IHD J* rl\Jjll M Irw 


1180 


1830 POKE fl,9J POKE 1,8: CALL 2 


19: PRINT " ";j TAB 32: PRINT 


1160 IF POL (P)15/255=C0L THEN 1150 


1810 NEXT I 


II ,,,„, ,,„,lf 




1850 CH(D)=0: REH DOOR IS OPEN 


2690 PRINT Y*;: TAB 20: PRINT SC( 


1170 COLOR=0J HLIN 0,39 AT 38 J GOTO 


1860 RETURN 


0);: TAB 33J PRINT SUM(O) 


1130 


1870 REM aOSE DOORS H/SOUND 


2700 PRINT Zij: TAB 20: PRINT SC( 


1180 REM GET R0« 


1880 PP=6: C0L0R=C(R1) 


D;: TAB 33J PRINT SUM(l) 


1190 ROH= PDL (P)i5/255{Y=R0«x6+ 


1890 FOR I=X1 TO Xl+1 


2710 GOTO 2730 


1 


1900 VLIN Y1,Y1+1 AT I 


2720 A*="GAW: COfflETED IN ": GOSUB 


1500 C0L0R=C(R0W): VLIN Y,Y+1 AT 


1910 pp=pp+i: POKE o,pp: poke i, 


2760 : PRINT TRY}:A$=" TRIES" 


38: 


5: CALL 2 


: GOSUB 2760 


1510 IF PEEK (-16287+P)<=127 THEN 


1920 NEXT i:CH(D)=l 


2730 GOSUB 1680 


1520 IF F-DL (P)i5/255=R0H THEN 1510 


1930 PP=6: COL0R=C(ROH) 


2710 VTAB 20 : TAB 1:A$="AN0THER GAME? 




1910 FOR I=X TO X+1 


(Y/N)": GOSUB 2760: INPUT 


1530 COLOR=0: VLIN 0,39 AT 38: GOTO 


1950 VQN Y,Y+1 AT I 


H$ 


1190 


1960 PP=Ff+i: POKE 0,PP: POKE 1, 


2750 IF H$="" IVm lOlO: IF Htd 


1510 COLOR=0: VLIN 0,39 AT 38: HLIN 


5: CALL 2 


,1)*"N" THEN lOlO: GOTO 2780 


0,39 AT 38:D=R0Wi6+C0L: IF 


1970 NEXT i:CH<Dl)=i; REM DOOR IS CL 




CH(D)=1 THEN 1570 


USED 


2760 REM PRINT A$ WITH SOU© 


1550 VTAB 22: TAB i: PRINT "ALREADY 


1980 RETURN 


2770 FOR J=l TO LEN(A$): PRINT A$ 


F€N !!'•;: POKE 0,255: POKE 


1990 REM INTRODUCnON 


(j,j);: POKE o,3o: poke 1,23 


1,255: CALL 2 


2000 TEH : CALL -936 


: CALL 2: NEXT j: RETURN 


1560 TAB i: CALL -868: GOTO 1130 


2010 PRINT "CONCENTRAHON, BY msaS 


2780 CALL -936: PRINT "THANKS FOR PLA 




KIRK" 


nNG...HAVE A NICE DAY!" 


1570 ND=M)+i: IF ND=2 THEN 1590 


2O60 GOSUB 1680 


2790 END 


1580 ri=roh:xi=x:yi=y:di=d: rem save 


2160 CALL -936 


2800 REM POKES FOR A SIMPLE TONE 


THE l-ikST DOOR 


2170 TAB 13: PRINT "» PLAYERS «" 


2810 REH ROUTINE. SFF THE 


1590 RETURN 




2820 REM APPLE RED BOOK 


1600 REM PLOT DOORS 


2180 PRINT : PRINT 


2830 POKE 2,173: POKE 3,18: POKE 


1610 REM ROW COLORS SET BY C( ) 


2190 A*="FIRST PLAYER ": GOSUB 2760 


1,192: POKE 5,136: POKE 6,208 


1620 C(0)=ii:c(i)=i:c(2)=2:c(3)= 


: INPUT Yf : PRINT 


: POKE 7,i: POKE 8,198: POKE 


8:C(1)=13:C(5)=3 


2500 IF LEN(YI)<19 THEN 2520 


9,i: POKE 10,210 


1630 GR 


2510 GOSUB 2570: GOTO 2190 


2810 POKE 11,8: POKE 12,202: POKE 


1610 FOR K=0 TO 35: C0L0R=C(K/6) 


2520 Ai="SECOM) PLAYER ": GOSUB 


13,208: POKE 11,216: POKE 15 


: HLIN 0,36 AT K: NEXT K 


2760: INPUT Z$ 


,166: POKE 16,0: POKE 17,76 


1650 C0LOR=0: FOR 1=0 TO 36 STEP 


2530 IF LEN(Z$)<19 THEN 2550 


: POKE 18,2: POKE19,0: POKE 


6: HLIN 0,36 AT IJ VLIN 0,36 


2510 GOSUB 2570: GOTO 2520 


20,96: RETURN ^ 


AT i: NEXT I 


2550 N=i: IF Z$="" THEN N=0 


1660 VTAB 21 : FOR 1=1 TO 31 STEP 


2560 GOTO 2580 




6: TAB i: PRINT 1/6+1}: NEXT 


2b/0 PRINT »N«€ TOO LONG !": PRINT 


Watch for the SSO version of 


I 


: REM CTRL-G 


CONCENTRA TION 


1670 POKE 31,21 : RETURN 


2580 RETURN 


next month .... 


1680 REH ARRAY G IS FILLED WHH 


2590 POKE 31,20 : CALL -936 




1690 REM 0-18 (2 OF EACH) 


2600 A$="PRESS RETURN FOR SCORES" 




1700 FOR 1=0 TO 35:G(I)=I/2: NEXT 


: GOSUB 2760: INPUT Hi 




I 


2610 COLOR=0 




1710 REM A RAND * IS CHUStN 


2620 FOR 1=0 TO i: FOR J=l TO 31 




1720 REM THEN ARRAY IS SHa»K 


STEP 6 
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GRAND PRIX continued from page SO 



10800 FreEK(LC)=ilJNDPEEK(LC-l)=BL AND PEEKCROsBUWreEKCRC+l) 

sBL 6OTO11000 

10810 M+201 F PEEKCLOOBLORPEEKCLC-DOBLTHEN LEFT=0 aSE LE 

R=-l 

10812 Ll=flB((CAR)+640: IF LEFT T»B^ L14.1-17 

10815 PRBTTgLl," lO^ASHx"? 

10820 IF WTCLEFT) THEN 6OSfM0000l»3SUB20010IGOSUB20000!GOSUB20 

000 ELSE ami20010IGOSU^0000;GOSUB20010IGOSUB20010 

10830 FORL=1T050INEXTL 

10^0 PRINTiLl,CHR$(201)| 

11000 fcm 

11010 T=T+DXJ IFLP<TKTHEN11200 

11020 Tl=T/SCJT2=T-TliSCJneJT89A5,TBI|IPRMB1010t}JPra3frU^ 

♦#Ji#*r'JTl*T2/DX} 

11030 FLNTLTHENP1Oma^-15360,STRDC$(5,l^)"FMSH"STRIM^ 

466)5 

11200 ICXT LP 

11205 FORI=lTO10IPRINTe0,a«l(255)}SZ=USR(0)JNEXn 

11210 IR<TB THEN )fl="YOU BROKE THE IM RECORD !"5H=4705GOSIK1 

OOOIGOT01128Q 

11220 FT-TB>200 PRINTI464,"Y0UR DRBO'S QIBICE HAS BEEN CANCE 

LLED!"IGOTO11280 

11230 IFT-TB>100 PRINTM64, "PERHAPS YOU NEED A HIDER TI«»("IGOTO 

11280 

112^0 PRINTM61,"Y0U'VE QIWIFIED IN "I 

li;S0PLAIl*M((T-TB)/5)+llIFPL=lTHEMPRM"lST"}aSEIFPL=2THEM^ 

imiT«2ND"}aSEIFPL«3THENPRINT"3RD"}ELSEPRINTPLACl"TH"} 

11260 PRINT" PLACE"} 

11280 1=0 

11290 FORI=lTO1000JNEXTI 

11300 PRINT§528,Di»(31);"Hn ENTER TO TRY AGAIN OR" 

11305 PRINTe592,"X TO IfWE TO ANOTHER CTRCUH"} 

11310 YI=INKEYItIFY$=€HRI(13)THEN10570ELSEIFYI="X"THEN10500aSEl 

1310 

12000 IF ^32 THEN L1=1C-15360-6ILEFT»-1 aSE Ll=RC-15360+llLiFT 

-0 

12005 L1=570+PEEK(CAR) 

12010 PRINTiLl,"OOOPS!"n FORL=lTO50{NEXTLJ PRINT8L1,CHRI(198)| 

12020 IF LEFT THENmOfl 

12030 IFPEEK(LC)Oft.0RPEEK(LC-l)<m.THEN12600 



12040 GOSUB20010IGOT012030 

12500 IFPEEK<RC)OBLORPEEKCRC+1)OBLTHEN12600 

12510 GOSUB20000tGOTO12500 

12600 T=T+10 

12620 GOTO10812 

15000 PART=PART+lJIFINT(PART/2)i20PART RETIBI 

15050 ONPART/2GOTO16000,^6025,1603046040,16050, 16070 

15060 fCrURN 

16000 PRINT825,"!! GRAND PRIX n" 

16010 PRINTil92,"Y0U ARE ABOUT TO TAKE PART IN THE QUAQFYING SE 

SSION" 

16020 PRINT"OF AN INTER^HONAL GR^ PRIX RACE," 

16022 m\m 

16025 P1^INT"Y0UR 'FORTIJLA ONE' CAR IS CONTROLLED BY THE AR^H KE 
YS »CHRI<93)" m "CHR$(94) 
16027 RETUI^ 

16030 PRINT"Y£MJ WILL TRY TO TURN IN THE FASTEST LAF* KEEPING IN M 
INDTW^T I" 
16035 RETURN 
16040 PRINT" 
ND" 

16042 f^INT" 
K.» 

160^ RETURN 
16050 PRINT" 
AND" 

16060 PRINT" 
16065 f€TURN 
16070 PRINT" 
YOU" 
16080 PRINT" 



- EVERY TIHE YOU STEER YOJ LMSE 2/10 CT A SECO 

SO YOU SHOULD mm. am. to edge if the trac 

- F YOU LEAME 1¥E TRACK YOU'LL BOUNCE BACK IN 
loose 2 SEaM)S" 

- IF YOU CHANGE STEERING DIRECHON TOO SUKBIY 
HIU SKID, LEAME THE TRAOC AM) LMSE 1 SECO© 



17000 RETU^ 

20000 Z=USR(2)JP0KE CAR,PEEK(CAR)-THOJLC=iC-TH0JIC=RC"TW3 

20008 l€TURN 

20010 Z=USRC1)5P0KE CAR,PEEKCCAR)+TWOtLC=LC+TWOIRC=RC+TW 

20020 RETUf^ 

21000 FORK=1T010;PRINTW,CHRIC192+LEN(ME$) ) \ tF0RI=lTO50JNEXnjPR 

INTiH,IC$} tF0RI=lT025INEXn,KtRETURN 



® 
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MASTER'S GOLF continued from page 39 



colors 

980 GRAPHICS 5:C0L0R l^SETCOLOR 0.12,6 = S 
ETCOLOR 4.14.8:SETC0L0R 2.0>12POKE 752. 
l^SETCOLOR 1.12.10 

Tl is location of tee 

910 T1=INT(RND<1).*32H4 

G1,G2 is location of green; Rl is 
radius of green 

912 G1=INT< RND( 1 )*55 >+20 = G2=INT( RND( 1 m 
0)+5=Rl=INT(RND(l)*2H3 

conditions for tee, green 

913 IF (GK45) Af« <ABS<T1-G2»10> THEN 
910 

914 IF RND<1K0.1 THEN 920 
916 IF ABS<T1-G2X20 THEN 918 

subroutine 950-983 plots the fairway 

920 GOSUB 950 

plots green, YA is yardage to green 

922 FOR X=0 TO Rl 

923 Y=SQR<R1«R1-X*X> = COLOR 2 

930 PLOT Gl-X.Y+G2 = DRAigT0 G1-X.G2-Y 
932 PLOT G1+X,G2+Y-DRAWT0 G1+X.G2-Y 
934 NEXT X:YA=Gl.t6+ABS<G2-Tl)*4 

plots tee, cup 

936 FOR X=Tl-3 TO Tl+3^FtOT 0>X = DRAl'JTO 5 
iX=NEXT X 

938 COLOR IPLOT GLG2 

par for hole 

939 P(HL)=3:IF YA>210 THEN P(HL>=4 

940 IF YA>480 THEN P(HL>=5 

plots sandtrap, returns 

942 B=INT(G2-T1 Vl .5+Tl •ft=Gl-l0-RND(0).t7 

^F GK29 THEN A=Gl-ie 

944 COLOR 3PL0T A.BDRAWTO A.B+2 PLOT A 

+LB-^DRAWTO A+1>B+3^PL0T A+2.B-2^DRA14T 

A+2.B+4 

946 PLOT A+3.B-l=DRAl'iT0 A+3.B+3 PLOT A+4 

.B=DRA14T0 A+4.B+2 

949 RETURN 

950 IF GK35 THEN Bl=RND(l>+3 
952 IF Gl>34 THEN B1=RND';1>+1.8 
954 B1=INT<G1/B1> 

960 Fl=Tl-4-F2=Tl+4 

962 FOR 1=0 TO BPPLuT LFl^DRAWTO LF2 

964 IF RND( 1X0.1 THEN Fl=Fi-MF FK0 T 

h€N F1=0 

966 IF RNOdKO.l THEN F2=F2+MF F2>39 

THEN F2=39 

968 SOUND 0.I:t:2.10.2 = h€XT I 

970 PLOT BLF^OR•A^^^TO B1.F2 SOUND 0.F1+F 
2M0.2 

971 B1=B1+1 IF Bl>79 THEN 983 

972 IF Bl>Gl+5+Rm<l>.1i8 THEN 983 

975 IF Fl>G2-8 THEN F1=F1-1 

976 IF FKG2-S THEN Fl=Fl+0.5 

977 IF FK0 THEN Fl=e 

978 IF F2>G2+S THEN f2=F2'Q.5 

979 IF F2<C2+S THEN F2=F2+1 

980 IF F2>79 THEN F2=79 

981 GOTO 970 ^^ 
983 RETURN ^ 



TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 




MmiC 

from ChristophersoD 

T 

ANDROID NIM 




The newest version of TRS-80's first 
animated graphics game — Android 
NIIVI — now with more animation 
and sound! Level II, 16K $14.95 



BEE WARY 

This fast-paced real time action game is a contest 

between a Bee operated by the player and a Spider 

operated by the computer. Machine language 

subroutines,but loads as Level II for easy operation. 

$14.95 

SNAKE EGGS 

Here is a computerized reptilian version of 21 complete 
with arrogant snakes and appropriate sound. Level II 

16K. $14.95 



LIFE TWO 



Two in one: Game of Life, at an astouding 100 

generations a minute, plus Battle of Life with animated 

creatures and sound. Level II 16K. $14.95 
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GRAND PRIX TAKE APART continued 

LINES 10440-10548 - CIRCUIT 
SET UP 

The DATA list in statement 
10440 is read into array C; each 
element of the array contains the 
number of positions the upper part 
of the track has to be shifted^ on 
each update, to draw a curve. As 
an example, a curve to the right is 
formed by printing the top part of 
the track at position X + C (0) 
followed by one line down scroll, 
then at position X + C (1) . . . 
and so on. TM is the index of the 
last element of the array LAP (50) 
which, as explained earlier, 
contains the sequence of curves 
and straight lines. In other words, 
TM represents the circuit length. 
The time to beat, TB, is calculated 
according to the minimum number 
of shifts the car must make ( + a 
tolerance factor of .1) to reach the 
finish line. Here the order in the 
sequence of curves is very 
important, for two successive 
curves in the same direction 
require more shifts than, let's say, 
a right curve followed by a left. 



from page 51 

LINES 10550-11200 

MAIN PROGRAM CYCLE 

Here are some of the variables used: 

CH$ 

: clears the top line of the 
screen. 

CAR 

: absolute address of the byte 
containing the position of the 
car on the screen. 

RCRASH, LCRASH 

: right and left * 'crash spots" 

RPS 

: position of track on top line; 
modified by array C when 
drawing curves. 

RO 

: Character forming current 
line of track. The effect of the 
track receding in a straight line 
is created by alternating 
character 132 (1 dot) with 
character 145 (2 dots). For 
curves, character 132 alone 
is used. 

RD 

: indicates whether character 
in RO is to be modified. 



TK 

: First of the last 5 elements in 
array LAP. When counter LP 
reaches TK, the current time T 
and the time to beat TB are 
displayed at the bottom of the 
screen. 

Although the role of some of the 
variables in this program may seem 
a bit confusing at first, a closer 
study of the listing should clarify 
all your doubts and perhaps reveal 
some programming techniques that 
you can apply in your own 
programs. 

I hope you have as much fun 
playing with this program as I had 
in writing it. ^^ 

by Max Chauvet 
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STRATEGY PACK I 6404 

Roman Checkers. This ancient game has been 
a favorite for hundreds of years. It couldn't be 
easier to play, yet playing the game well takes 
skill, cunning, and strategy as you try to out- 
think your opponent. 

Frame up. Try to out-manuever your opponent 
or play against the computer In this game of 
wits and calculated strategy. You will alternate 
selecting numbers and controlling your 
opponents choices. Joysticks are optional. 
2 programs on cassette $29.95 



WALL STREET CHALLENGE 6402 

This computer simulation of the stock 
exchange is easy to play and always 
challenging. Invest In several corporations 
ranging from Municipal Power and Light, a blue 
chip stock that usually provides steady growth, 
to Offshore Industries Limited, a high-flying 
speculative stock that is certain to change 
often. Stock charts, and the Dow Jones show 
you the trends. Both 8K and 16K memory 
versions are included. 
Cassette $19.95 



STRATEGY PACK II 6405 

Target Chase. Choose a partner or challenge 

the computer to this fast action, catch-or-be 

caught adventure. 

Tunnels. In this electronics hide-and-seek, only 

the computer knows where you will appear 

next. 

Survival. Intercept your opponent before you 

crash or are devoured. 

Snake Hunt. Fast maneuvering and quick 

response are essential to capture - or escape 

from - your opponent. Joysticks are required. 

4 programs on cassette $29.95 

SKILL BUILDER I 6406 

Bingo Duel. This fast-action skill game for one 
or two players provides an exciting challenge, 
because young children and adults can 
compete equally. The computer adjusts to 
match your skill and problems are specifically 
selected to help you gain speed. 
Number Hunt. Matching numbers is easy 
enough for young children, yet this computer 
game quickly advances in difficulty to 
challenge the experts. Joysticks are required. 
2 programs on cassette $29.96 



ALL STAR BASEBALL 6401 

This computerized version of America's 
favorite sport is full of fast action fun. Each 
player takes a turn at bat while the other player 
is both pitcher and the outfield. Innings, score, 
batting averages, and even errors are 
calculated by the computer and displayed on. 
the official scoreboard. Balls, strikes, and all 
plays are called with absolute precision. 
Joysticks are optional for both players. Both 8K 
and 16K memory versions included. 
Cassette $19.95 

MIND MASTER 6403 

This classic strategy game takes on a new 
dimension as the computer designs the hidden 
problems and reports the results of each guess. 
Multiple players may compete against the 
computer and each player may select the level 
of difficulty that matches their skill, ability, and 
patience. This program also contains a formula 
for solving logic problems. Create the answer 
and watch the computer use deductive logic to 
discover the secret code. Both 8K and 16K 
versions. 
Cassette $19.95 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 




INPUT 

continued from page 10 

Mr. Roger Robitaille, Publisher: 

We may be the first to complain, 
but rU bet we won't be the only 
ones to take exception to the art 
work on page 9 of the May issue 
and page 25 of the June 1980 issue 
of the S-8ighty magazine. If you 
want to bite one of the hands that 
feed you, then you have a lot to 
learn about the feelings of anyone 
who owns a computer, as we all 
think our system is the greatest, 
whatever make it may be. 

We take exception to the insult 
of the garbage can with the frowny 
face inside, next to "SoftSide: S- 80". 
We will not resubscribe to 
. SoftSide, the cassette program, 
Prog 80, or buy any more software 
from the Software Exchange, and 
SoftSide, until an apology is 
published and this "emblem" is no 
longer used. 

John R. and John D. Lindemann 
Cincinnati, Ohio 

Thanks for your concern. Radio Shack is 
very sensitive about their trademarks, and 
we have been searching for a readily 
recognizable symbol for products that can 
be used with the Model I. We are of yen to 
suggestions, P.S. It is a trash can, not a 
garbage can. 

Dear Mr. Blank, 

First, 1 would like to thank you 
for the best computer magazine 
ever. 

I was very excited to see Lance 
Micklus' 3.4 version STARTREK 
program in your May issue of 
SoftSide. To save a lot of typing, I 
loaded my 3.3 version of 
STARTREK. Then after entering 
the new lines, I just renumbered 
the program to match the 3.4 
version. This made it easy to check 
the GOTO's, and add any data 
needed to a line. Then the program 
was up and running, but it was 
missing something. Edit line 3180 
to this and you will have a 50% 
better program (that's 150% total!): 
3180 For K equals to 4: print at 
512, BS: for J equals to 100: 
OUT 255,1: OUT 255,2: next J. 
Hook the "aux" wire to an 
amplifier to add a buzzing when 
you enter yellow, or red alert. (You 
can also add this to give you sound 
when firing phazers, etc.) 

Just a little sound to a super 
program. Keep up the great work. 

Roy K. Brookins 
Beaufort, S.C. 



Subject: Apple Computer - 
Complaint 

Folks, I won't waste much of 
your time. Just thought you might 
want to know about this and 
perhaps pass the word. 

Since buying my Apple at the 
end of last year, I've written Apple 
nine times regarding warranty 
registration, the "Contact" updates 
and the "Apple Orchard." In 
essence, I would like them to 
acknowledge that I am on record 
there somewhere. 

No response is forthcoming. I've 
called them and even talked to 
them at the NCC and got a 
promise of action, but no results 
to- date. Some of the letters I sent 
had a S.A.S.E. enclosed, and the 
last letter was certified and they 
had to sign for it. Inside 1 warned 
that if they didn't respond, I would 
write every club, magazine, etc. 1 
could find and announce it on the 
Source. Still no response. 

So far, the computer has 
behaved perfectly. I hope it never 
needs service.... Thank you for your 
time. 

Sincerely, 
Tom Wade 
Instant Screen Service 
San Diego, CA 

Follow-up letter 

You folks reported that Radio 
Shack's Model II was having 
problems. That took guts - I 
haven't heard anyone else even 
HINT such a thing. 

See if you find (as I have) that 
this communication problem with 
Apple, Inc. is common. People 
should know these things before 
they buy. 

Thanks, ^^ 

Tom ^ 



Garon's GOODIES 
continued from page 8 

By POKEing the final character 
(line 2050), we avoid the scrolling. 

The concept of "fooling" a 
string into being something dif- 
ferent is quite useful. It is used in 
Mr. Jensen's PINBALL (July S-80 
SoftSide) to cause lines of graphics 
to advance toward the paddles. 
MONSTER MAZE and ESCAPE, 
by Joel Mick (to be published in 
an upcoming issue) both use this 
approach to save a picture of a 
randomly generated maze, for later 
display. It looks like VARPTR- 
fiddling is a technique whose time 
has come. iS^ 
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for your Apple ''^" "" 



?gw'* 



CCA DATA 9^ 

MANAGEMENT SYSTEM 

• Complete, manual in a three ring binder 

• Handles 1 or 2 disk drives 

• Written in BASIC, with Instructions for writing your own pro- 
grams to use DMS files, including I/O routines. 

• Create, add, update, or delete files easily. 

• Search any field for any data. 

• Sort by any field. 

• Print reports, selecting any fields in any order, and maintain 
totals and subtotals on any numberic fields. 

• Print mailing labels. 

• Print records selectively, for example, only customers with 
New York addresses. 

• Complete index in manual 

• Scan function to report statistically on file. You might ask how 
many accounts are overdue and receive a report that started 
10 records found in 200 records scanned (5% of file). 

• Automatically tests line printer ready state to avoid system 
lockup. 

• Printer alignment pattern for labels. 

• Warning issued if you try to compact data without creating a 
backup. 

• On Disk (32K) Applesoft ROM. 

• Works in conjuction with Visicalc. $99.95 plus $2 shipping. 



VISICALC 



Now you can dispense with pencil, paper and calculator — instead you can have an "electronic sheet" 
to do your calculations, projections, and plannlngi 

Calculate sales projections, income taxes, personal budget, cost estimates, engineering change — 
even balance your checkboolc. Visicalc is partitioned into a matrix of rows and columns. At 
each position in this matrix you can define a title, formula, or number. By writing on your 
"electronic sheet" you can set up individualized charts, tables, and records. For 
example, you can design your own sales forecasting format to assist in making the 
important "What if?" business decisions. 

What would happen if sales increased by 10%? 

What if delivery time were decreased by 2 weeks? 

What would be the result if I produced 500 widgets this 
month instead of 600? What if I produced 700? 

Let Visicalc assist you in performing these calculations and save you countless hours. 

Visicalc requires 32K, Applesoft and disk drive. $150.00 

TRS-80 and Atari versions available soon! 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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PRODUCT REVIEW 
continued from page 16 

The routine at line 10 uses SET 
and single precision variables. 
Lines 100-150 also use SET, but 
with integer variables. Lines 
1000-1050 use single precision 
POKEs, and finally, the routine at 
line lOOOO uses integer variables 
combined with POKEs. 

The four methods were timed 
before and after compiling. The 
times (in seconds) are given below: 
METHOD BEFORE AFTER 

1 52 43 

2 42 3 

3 9 3 

4 8 

Of course , integer POKEs didn't 
really take zero seconds, but the 
screen was whited-out so fast that 
the only thing certain about the 
time is that it was MUCH less than 
half a second; if you blink at the 
wrong time you will miss it. 

ADDITIONAL FEATURES 

In addition to compiling most 
Level II or Disk BASIC programs, 
the Microsoft compiler adds many 
more features. Notice lines 1000 
and 1010 in the above program. 
Level II would treat the variables 
VIDEO and FINISH as if they 
were VI and FI. The compiler lets 
you use long variable names and 
does NOT ignore all characters 
after the second one. 

You can now make liberal use of 
REMark statements, since they will 
not be compiled. Thus your source 
program can be extensively 
documented without paying the 
price in either memory or time in 
the final object program. 

All of the advanced math 
functions, including LOG, EXP, 
SIN, COS, TAN and the up-arrow 
can now produce answers which 
have double precision accuracy. 

Assuming you have two disk 
drives, here's how you would 
compile a program. (The 
procedure for compiling on a one- 
drive system is similar - it merely 
involves some disk-swapping.) First 
you write the source program. 
Let's refer to it as TEST/BAS. 
Since you are writing in Disk 
BASIC, you do not need to learn a 
new language. For editing purposes 
you use the familiar EDIT 
command. Once TEST/BAS is 
written and RUNning to your 
satisfaction, you must SAVE it on 
disk in ASCII format. 



Type: 

SAVE*TEST/BAS",A 
You now return to DOS by typing 
CMD"S" or pressing the reset 
button. There are two diskettes 
supplied with the compiler. Place 
diskette 1 , which contains the 
compiler and something called p 
"linking loader" in drive 1. To 
test for errors which might prevent 
a successful compilation, type: 

BASCOM=TEST 
BASCOM is the name of the 
compiler. It will search for the 
disks for a BASIC source program 
called TEST/BAS (no need for 
you to tell it *VBAS"; it knows) 
and test it for errors. Hopefully 
you will soon be told that there are 
no "fatal" errors. If not, 
BASCOM will show you where in 
your program the difficulty is. You 
must correct the problem in your 
source program and try again. 
Once BASCOM signifies that the 
source program is error-free, it is 
time to begin the actual compiling. 
This time, type 

BASCOM TEST,TEST = TEST 
This will produce two new files on 
disk: TEST/REL and TEST/LST. 
The first one, TEST/REL, is the 
first stage of the compiled 
program, but it is not quite 
finished. The second file, 
TEST/LST, is a listing of your 
source program lines along with 
the partially translated portion of 
your machine language object 
code. Now type: 

L80 TEST 
This runs the linking loader, which 
pinpoints the places in TEST/REL 
which BASCOM couldn't handle. 
After producing a list of these 
places, L80 stops. Now it is time 
to use the second diskette provided 
with the compiler. This diskette 
contains an enormous (38 grans!) 
file called BASLIB which is a 
library of all routines that might 
be needed to complete BASCOM's 
job. Type: 

BASLIB-S 
The "-S" is called a "switch". It 
gives additional information to the 
compiler. The various switches are 
explained in the manual. Now it is 
time to stand up and stretch while 
the huge BASLIB library is 
searched. This usually takes a few 
minutes. When BASLIB is 
through, type: 

TEST-N-E 
(-N and -E are two more switches.) 
In a few moments, another file will 
be written to disk; this one is 
called TEST/CMD. TEST/CMD is 



the long-awaited compiled version 
of TEST/BAS. TEST/CMD is 
self-contained - that is, it does not 
need any of the compiler programs 
to run properly. 

To use TEST/CMD at any time, 
simply type: 

TEST 
from DOS. 

There are some important things 
to be aware of. For one thing, the 
compiled version of a program will 
be much larger than the original. 
A program which took one gran of 
disk storage in its BASIC form 
required nine grans in its compiled 
form. Just out of curiosity, I 
compiled a one-line program: 

10' 
When compiled, it needed 3 grans 
of disk space! (A gran is 1280 
bytes.) 

Another thing to be aware of is 
that Microsoft expects you to pay 
them a royalty if you sell compiled 
versions of your programs. You 
have your choice of a flat yearly 
rate of $195.00 or 9 percent of 
your total sales. Of course , if you 
only use the compiler to speed up 
your personal programs, and do 
not sell them, you do not need to 
pay Microsoft. If you do choose to 
sell compiled programs, the fee is 
certainly worth it if you have a 
reasonable sales volume. Your 
programs will run faster and will 
be more difficult to copy. Any 
special BASIC code you have 
developed will not be exposed to 
the pubUc eye. 

All in all, the Microsoft 
Compiler package (2 diskettes and 
manual) is well worth the price. 

TSE has the Microsoft Compiler in 
stock for 48K Disk TRS-80 
systems. Price is $195.00 plus 
$3.00 shipping and handling. 



A Review of Program Line Editor 
from Synergistic Software (Apple) 

It's going to be difficult to keep 
this review from sounding like an 
advertisement. The Program Line 
Editor is the handiest program I've 
yet to find for the Apple. Written 
by Neil Konzen, Program Line 
Editor is a machine language 
program that works with any 
Apple. The package contains a 
HELLO program that will put the 
Editor in place as soon as you 



boot your disk system. Once there, 
it remains invisible to most normal 
operations unless you need it. 

Its first function, and the one 
you might expect, is in editing a 
program. Just press Control-E and 
the line number you wish to edit 
and you can insert, replace, or 
delete characters with ease. Delete 
a string of characters? Move the 
cursor to a certain character 
immediately? Type upper and 
lower case for an adapter? All of 
the above. But the power that isn't 
apparent from the title lies in a 
little key in the upper left corner 
of the keyboard that will soon 
wear through to the contact points 
when you get this program. The 
Program Line Editor also allows 
you to create 'Escape* functions. 
These are the things that allow you 
to type 'ESC V and magically get 
a catalog from drive 1. You can 
set *ESC H' to compute and print 
HIMEM, *ESC L' for LOMEM. 
Define functions to correspond to 
any key you desire. The functions 
can be words, commands, or sets 
of commands; anything that you 
type often can be reduced to a 
matter of two keystrokes. The 
package, which includes excellent 
documentation, costs $40 and 
works with any Apple that has a 
disk. 

Mini- Review- 
Monty from Ritam 
Corporation (S~80 and Apple) 

Monty, from Ritam 
Corporation, is a program that 
makes a Monopoly player out of 
your computer. Available for both 
the Apple and TRS-80, not only 
does it play a good game of 
Monopoly, it also is quite 
entertaining. You play with a 
regular Monopoly set, and Monty 
will play along with whomever else 
happens to be playing. The graphic 
displays are very well done (yes, 
Monty even has an almost Hfe-size 
head behind that screen), and he 
also has a little tune that goes with 
every space on the board. Part of 
the fun is just trying to figure out 
the connections between the songs 
and the spaces; for example, *Hail 
to the Chief goes with — 
—Pennsylvania Avenue! ^^ 




APL80 



VERSION 3.0 



APL80, a large subset of the 
powerful mathematically elegant APL 
language of the IBM 5110 . . . you 
can create matrices with up to 64 
dimensions and manipulate them 
with over 60 built-in functions and 
six different kinds of user defined 
functions. Syntax of functions is 
identical with the IBM version. 

Improved Disk version now includes 
Monadic and Dyadic Transposition, 
choice of dimension format, latent 
expressions, COPY, random and 
sequential files, and double precision 
arithmetic. 

16K Level II Tape version $14.95. 
Enhanced Disk Version $39.95 (32K 1 
disk). Book APL: An Interactive 
Approach by Oilman and Rose $15.50 
plus $2 shipping. Send SASE for data, 

TO ORDER 
TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 




$819 



16K $895 
32K$1195 



$499 



APPLE 



ATARI 



PET' 



MICROSOFT ADVENTURE 

The original of ADVENTURE written for 
the DEC-10 systems is now available 
for the APPLE. Explore Colossal Cave 
for treasures while avoiding the 
dangers hidden within its many 
passages. 130 different rooms. 15 
treasures, and characters ranging from 
helpful to deadly await you within the 
cave. Be careful where you step, and 
also who's behind you! 
32K disk machine language $29.95 

ANDROID NIM 

by Leo Christopherson 
The game that made Leo 
Christopherson famous is now 
available for the APPLE! The improved 
graphics and color of the APPLE make 
the game even better. Try to be the last 
one to shoot the androids on the 
screen. If you do, you win! Also 
includes realistic sound effects. 
24K cassette machine language. . $14.95 

MAGIC PAINT BRUSH 

Hi-Res graphics package plus! Draw 
Hi-Res pictures using all APPLE'S 
colors. Connect any points on screen, 
fill areas, plot, rotate, and scale shape, 
or 'paint' with a set of 9 brushes. Also 
comes with Shape Table Designer and 
2 demo programs. Slot Machine and 
Applesoft Invaders. 
32K disk Applesoft-ROM $29.95 

THREED 

You don't have to be an engineer or 
scientist to have high resolution 
graphics for your computer! This 
program permits rotation, scaling, 
shift, distortion, and combination of 
three dimensional graphics on the 
screen. MP Software. 
48K disk Applesoft-ROM $29.95 



STAR RAIDERS 

The best! A ROM cartridge holds the 
game. A fast-paced full-color, space 
battle in which you must defeat the 
enemy Zylon ships while protecting 
your home bases. Real-time action and 
effects make this game the best space 
game available. Sixty levels of rating 
from Garbage Scow 4th Class to 
Commander make for continuously 
exciting play. 
ROM cartridge $59.95 

3D GRAPHICS 

by Tim Hayes 

High quality graphics program for the 
ATARI computer allows you to rotate, 
distort, shrink, and combine three 
dimension graphic projections on the 
screen. With the high resolution 
abilities of the ATARI, one of the finest 
graphics packages available anywhere! 
16K cassette $29.95 

WALL STREET CHALLENGE 6402 

A computer simulation of the Stock 
Exchange is easy to play and always 
challenging. Invest in stocks, and try to 
make it big! 

8K and 16K version on one cassette 
$19.95 

ALL STAR BASEBALL 6401 

Two players face each other, one at 
batand the other pitcher and outfield. 
Innings, balls, strikes, and a variety of 
plays make for an exciting game. 
Joysticks are optional. 
8K and 16K versions on one cassette. 
$19.95 



STARFLEET ORION 

Command a starfleet! 2 player game 

system includes rule book, battle 

manual, control sheets. Two programs. 

22 space ship types and 12 play tested 

scenarios. 

8K cassette $19.95 

RESCUE AT RIGEL 

Search the moon base and rescue 
Delilah Rookh from the High Tollah. 
Automatic Simulations. 
24K cassette $19.95 

MORLOC'S TOWER 

Match wits with the evil wizard and try 
to defeat him! Automated Simulations. 
32K cassette $14.95 

TIME TREK 

by Brad Templeton from Personal 
Software. Real time action. Star Trek 
type game with sound effects. There 
are no 'turns'. The action continues 
whether you move or not. You and the 
Klingons can move, steer, and fire at 
the same time. 
8K cassette $14.95 



This is only a very small sample of 
our product line. For a complete 
selection, send $1 for our catalog 
of hardware, software, and 
publications and receive a $2 
credit toward your first order. 



APPLE. ATARI, jnd PET 3re trademarks of 
Apple Computer Co.. Warner Communications, 
and Commodore, respectively 



IhcSOttH^Bt^tXIChSnffC e south st, muford, nh ososs 
To order: Call Toll-Free 1-800-258-1790 onNHcaii 673-5144) 

The Software Exchange & Hardside (Div. of Rohitaille & Sons. Enterprises. Inc.), SoftSide Publications 
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Where can you dial one 

TOLL FREE number and be 

able to select the finest software 

from the world's foremost suppliers? 

800-258- 

The Saitware Exchange 

Our stock rooms are overflowing with the finest software available 
in today's marketplace. We carry software from all these companies: 



• Racet 


•Synergistic Software 


•Acorn Software 


•Adventure International 


•Strategic Simulations 


•Hayden 


•Personal Software 


• Lance Micklus 


•Muse 


•Web Associates 


•Softape 


•Microsoft 


•Small Systems Software 


•Quality Software 


•Apparat 


•Sensational Software 


• Image Products 





We could not possibly list all of the software on this page, 
however, if you send us $1.00, you'll receive our catalog plus 
a $2.00 credit toward your next purchase! 






Suppose you and your family could spend a 
little time each month with someone who truly 
understands microcomputers. And this person 
talked to you about your computer in plain ol' 
everyday English. Supp'ose you could find out 
how these people are successfully dealing with 

the ever-increasing technology of the" 

microcomputer. Suppose too, that each article was geared 

to the person with a beginning or intermediate interest in 

personal computing. 

NOW you can get all this, and more, at a price you can afford. 

It's SoftSide — the magazine that provides its readers with tried and true 

listings, along with structured *'walk-thrus" of some of the most 

stimulating software pieces, month after enjoyable month. 



U 



Subscribe today! Until November 1, 1980, the price is only $15.00. 
After November 1, the price will be $18.00, so why not save $3.00 and start your family 

on the road to microcomputing? 



© 



A SoftSide Publication 



lltC 9UV I iKlfV tXCttSMffC 6 SOUTH ST.. MILFORD. NH 03055 

To order: Call Toll-free 1-800-258-1790 on nh can (603)673-5144) 

The Software Exchange & HardSide (Div at RahitaiUv & Sans, huvrpnsvs. Im }. So/fSn/i- Puhln ati,>ns 
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from 



[I1LSE 



• 
• 



View two text screens at 
once; Keep notes on one 
and edit the other. 
Complete cursor control. 
Built in floating point math. 
Automatic tabbing. 
Delete character, word, line 
or screen. 

Right, left, or center justify. 
Unlimited text movement. 
Global search and replace. 
Complete file merging 
capabilities. 

Automatic page numbering. 
Upper and lower case. 
Superscripts, subscripts 
and underscoring. 



For the APPLE II and 

APPLE II Plus, 48K 

$99.95 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 



S-80 PROGRAMMING TIPS 
continued from page 13 

The up-arrow method of raising 
a number to a power is sometimes 
subject to rounding error. 

On my computer (16k Level II) 
it says that 16 raised to the third 
equals 4095.998046875 when 
obviously it equals 4096. These 
types of errors can be dangerous in 
a program that uses large numbers. 
An alternative approach is to start 
your program with a subroutine 
that fills a matrix with the values. 
For example: 

10 DEFDBL D:DIM 
D(20):D(0) = 1:FORX = 1 to 20: 
D(X) = D(X-1)*16:NEXTX 



This loads the D matrix with the 
values of 16 raised to the numbers 
0-20. To calculate different powers 
simply change X or the 16. 

Robert W. Lord 
Rajeev Jayavant 



In the 32 character mode, only 
messages that start at even- 
numbered PRINT positions will be 
displayed; those PRINTed at odd- 
numbered locations will not appear 
on the screen. 

Example: ?@513/'THIS IS AN 
EXAMPLE" will not appear on 
the screen if the video display is in 
the 32 character mode. 



How many times have you tried 
to BACKUP a diskette only to 
receive the message "BACKUP 
REJECTED, DIFFERENT PACK 
IDS?" The PACK ID is the name 
of the diskette, such as TRSDOS. 
To get by this problem, get the 
name of the original diskette from 
the DIRectory, then FORMAT the 
new diskette with the same name. 
Then BACKUP the new diskette. 
You should no longer have any 
problems. 

For those of you who write 
programs for SoftSide and also 
have Level III BASIC from 
Microsoft, I suggest the following. 
Since SoftSide now only accepts 
programs for publication which are 
compatible with both Level II and 
Disk BASIC, if your program 
makes use of a USR routine, you 
can use Level III to debug your 
DEFUSR initialization of machine 



code. This works because Level III 
and Disk BASIC use the same 
technique to initialize USR calls. 



Recently, I have noticed the use 
of a new kind of sound effect in 
some programs. The sound is 
created by rapidly toggling the 
cassette relay. 1 have talked with 
the repair people at HardSide and 
I've been informed that failure or 
fusing of the cassette relay is one 
of the most common problems 
with the TRS-80. It is not a good 
practice to use any program which 
toggles this relay for sound as the 
relay gets overheated very easily 
and, given a little time, WILL fuse 
solid. This will prevent the 
computer from being able to stop 
the cassette recorder upon 
completion of a CSAVE, CLOAD 
or any other tape operation. Put 
very simply, if you want sound, use 
an amplifier: it won't damage your 
computer. 



Phil Case 
Springfield, MO 
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ST80* has a smart terminal 
package for you ! 



TO ORDER TOLL FREE 
1-800-258-1790 

{In NH call 673-5144) 



All four programs iinclude the ability to use an unmodified TRS-80 keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232-C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversions, and line printer output. 



ST80*UC 



Preset parity, word length, and baud rate (regardless of switch settings on the RS-232-C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232-C board; and even spooling of prepared messages on 
tape directly into FORUM 80 using a basic program supplied as a line listing. 4K Level II cassette, $24.95 



ST80 



Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing 
of the RS-232-C or tape spooling. 4K Level II cassette $49.95 



ST80*D 



Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be 
sent directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and 
auto logon. Use It with VTOS 3.1, and get device-driven I/O, job logging,and chaining. 32K disk program, $79.95 



ST80*III 



ST-80 D with extra utility pro|;rams. 32K disk program, $150.00 



♦5180 is a trademark of lance Micklus /nc. 



Unlock the power 
of the Z-80 

STAD 

SYMBOLIC TRACE AND DEBUG 

A powerful monitor for the TRS-80 with special 
Debugging. Single Step through the 
machine language programs or set up to 
three breakpoints, and look at this display 
format! 



flF BC DE HL IK IV RF- BC'' DE'" HL" SP PC 

ew4 wee ceee bttc 6432 ffff 9102 0000 4000 sFce 4iFc 4400 

LD fl.93 



TO ORDER TOLL-FREE: 1-800-258-1790 

(In NH call 673-5144) 



A FJRST(0) LAST(FFFF) 


ASCII dump 


A FIRST 


formatted ASCII dump 


B 


start of branch table 


BVALA 


display In decimal 


B VALA VALB(O) 


hex arithmetic 


C 


check system tape 


D FIRST(O) LAST(FFFF) 


dump hex 


E FIRST(0) 


edit memory 


F FIRST LAST VALUE 


find- byte 


G BRKPTS (3 max.) 


set breakpoints, continue 


H FIRST LAST VALUE 


find word 


IPORT 


read port 


K 


keyboard echo 


L 


load system tape 


L SECTOR MEMORY COUNT(1) 


load from disk 


M FIRST LAST BLOCK 


move memory 


N 


display symbol table 


NO 


symbol table to tape 


N VALUE 


define value for symbol table 


N FIRST 


define start symbol table 


PORT VALUE 


write to port 


P 


initialize memory blocks 


P ENTRY 


write memory blocks and start 


P FIRST LAST 


define a memory block 


Q FIRST LAST 


calculate checksum 


R 


display / modify registers 


S FIRST LAST OPTION(O) 


disassembler 


T COUNT OPTION(6) 


trace instructions 


U FIRST COUNT OPTION(O) 


unformatted tape I/O 


V FIRST LAST BLOCK 


verify memory 


W SECTOR MEMORY C0UNT(1 


) write to disk 


X FIRST LAST BLOCK 


exchange memory 


Z FIRST LAST VALUE(0) 


zero memory 


• 


• 
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CONVERTING GRAPHICS 
continued from page 23 

It is important to distinguish 
between the color number and the 
color register on the Atari 
computers. The color number 
selects the color in the 
SETCOLOR command and puts it 
in a COLOR register. For 
example, the command 
SETCOLOR 2, 12, 4 sets one of 
the color registers to a medium 
green. (It sets register 3 in modes 
3, 5, and 7). This can be confusing 
as it does not set register number 
two. Here is a chart of the 
registers affected by *C' in 
SETCOLOR C, X, x: 





Register affected 
Graphics mode 


'C* 



1 

2 


3,5 & 7 4,6 8 

1 1 none 

2 none 1 

3 none 


3 
4 


none none none 
none 




Text modes 0,1, and 2 
work differently 



The COLOR command selects a 
color register, not a color. 
Therefore, if we wanted to use our 
green in register 3, you would 
specify COLOR 3 before plotting 
your points. After that, you could 
change the color of the points 
already plotted by changing 
register 3 to another color. 

It is not necessary to use a 
SETCOLOR command, as there is a 
default color for each of the five 
registers, as follows: 



Register 


Orange 


1 


Green 


2 


Dark Blue 


3 


Pink 


4 


Black 



The GRAPHICS n command 
resets the registers to the default 
values. 

The primary graphics commands 
for the Atari are as follows: 

PLOT X, y (PL.) Displays one 
block at horizontal position x and 
vertical position y. 

DRAWTO X, y (DR.) Draws a 
line from the previously plotted 
position to the position specified. 

POSITION X, y (POS.) Places 
the cursor at the specified position. 

LOCATE a, b, X (LOC.) Places 
the cursor at a, b and stores the 
current color register number of 
that point in variable X. 

PUT # 6, c Places an ASCII 
character at the current location of 



the graphics cursor. The 6 is the 
device number of the graphics 
window. 

PRINT # 6 It is also possible to 
use graphics characters and print 
them directly on the screen. The 
following chart shows most of the 



graphics characters. To get these 
characters directly from the 
keyboard, hold down the 
CONTROL key and press the 
letter in the corner of the character 
illustration on the chart. 



o 


a 


a 


9 


□ 


Q 


13 


Q 


e 


Q- 


n 


a 


m 


Q 


a 


13 


o 


13 


a 


O 


a 


O 


a 


Q 


o 


e 


n 


o 







Here is our little box for the 
Atari: 

10 GR.3: PLOT 15,8 

20 DR. 25,8 : DR. 25,12 : DR. 

15,12 : DR. 15,8 

You could also use the control 
graphics characters, with 
CONTROL Q, E, Z, and C for the 
four corners, CONTROL R for the 
horizontal lines, and control V and 
B for the vertical lines. These 
would have to be put in a string 
variable or enclosed in quotes in a 
PRINT statement. 

Converting low resolution 
plotted graphics from one 
computer to another can be quite 
simple. Just determine the scale 
from the screen display 
descriptions in this article, and 
convert the horizontal and vertical 
coordinates over. Most of these 
calculations can be done mentally. 
For example, if you start with the 
Apple II in low resolution graphics 
with a 40 by 40 display, you can 
go to the TRS-80's 128 by 48 
display by multiplying the 
horizontal dimension by three and 
leaving the vertical dimension 
untouched. You might have to 
double or triple the width of the 
vertical lines to get it to look right. 
The same conversion can go to 
Atari Graphics mode 4 by 
doubling the horizontal coordinate 
or to mode 3 by. halving the 
vertical coordinate. 

SET on the TRS-80, PLOT and 
HPLOT on the Apple, and PLOT 
on the Atari differ only in the 
scale of the drawing. The HLIN 
statements on the Apple are very 



similar to DRAWTO on the Atari, 
but you need a FOR NEXT loop 
on the TRS-80. 

High resolution graphics can be 
converted directly between the 
Apple and the Atari by adjusting 
for scale, but it takes creative 
imagination to convert these 
programs to the TRS-80. You may 
have to plot out the graphics on a 
piece of graph paper, then use 
your ingenuity on your own 
computer, ^m. 




LeveMI, 4K 
Level-ll 16K no keypad 
Level-ll 16K with keypad 
COMM-80 Interface 
CHATTER BOX Interface 
Disk-80 Interface 
Expansion Interface, no RAM 
Expansion Interface 16K RAM 
Expansion Interface 32K RAM 
RS-232-C Board 
TRS-232 Printer Interface 
16K Memory Kit, TRS-Keyboard 
16K Memory Kit. TRS-Exp. Int 
Percom, TFD-100, 40-track 
Percom, Dual TFD-100 Drives 
Percom, TFD-200, 77-track 
Percom Data Separator 
Percom Extender Card 
2-Drive Cable 
4-Drive Cable 
Data Dubber 

Percom Electric Crayon w/cbl 
Busy Box, TRS-80 
BSR X-10 Starter Kit 
Busy Box 4-yr Control Program 



ATARI 



ATARI 400 Comp. System, 8K 
ATARI 800 Comp. System 16K 
ATARI 410 Program Recorder 
ATARI 810 Disk Drive 
ATARI 815 Dual Density Disks 
ATARI 820 Printer (40 col.) 
ATARI 822 Thermal Printer 
ATARI 825 Printer 
ATARI 830 Acoustic Modem 
ATARI 850 Interface Module 
ATARI Light Pen 
8K RAM Memory Module 
16K RAM Memory Module 
ATARI Joystick Controllers 
ATARI Paddle Controllers 

CARRYING CASES 

TRS-80 Computer Case 

TRS-80 Monitor Case 

APPLE System Case w/1 drive 

APPLE System Case w/2 drive 

APPLE _.^__^ System Case w/mon. 



$649.00 
$768.00 
$849.00 



$299.00 
$418.00 
$537.00 
$99.00 
$59.95 
$119.00 
$119.00 
$399.95 
$795.00 
$675.00 

$15.95 
$29.95 
$39.95 
$49.95 

$109.95 
$124,95 



$629.95 
$1079.95 

$89.95 
$699.95 
$1495.95 
$599.95 
$449.95 
$999.95 
$199.95 
$219.95 

$74.95 
$124.95 
$199.95 

$19.95 

$19,95 



$599.00 

$669.00 

$749.00 

$179.95 

$259.95 

$299.95 

$279.00 

$369.00 

$459.00 

$89.00 

$49.95 

$89.00 

$85.00 

$389.00 

$775.00 

$599.00 

$29.95 

$15.00 

$29.00 

$39.00 

$44.95 

$279.95 

$99.95 

$99.95 

$19.95 



$499.00 

$819.00 

$59.00 

$569.00 

$1219.00 

$469.00 

$369.00 

$819.00 

$169.00 

$179.00 

$59.00 

$99.00 

$159.00 

$18.95 

$18.95 




$109.00 


$99.00 


$84.00 


$79.00 


$109.00 


$99.00 


$119.00 


$109.00 


$129.00 


$119.00 



APPLE 

Mtn. Hard. Apple Clock 
Mtn. Hard. ROMPLUS + 
16K Memory Kit 
Busy Box, Apple 
BSR X-10 Starter Kit 

PET/CBLM 



PET 2001 large keyboard, 16K 
PET 2001 large keyboard, 32K 
CBM 8032 Business Comp. 
CBM Cassette Recorder 
CBM 2040 Dual Disk Drives 
CBM 8050 Dual Disk Drives 
CBM Modem 
CBM Voice Synthesizer 
CBM to IEEE Cable 
IEEE to IEEE Cable 

PRINTERS 

Centronics 730 

Centronics 737 

Centronics 779 

Centronics 779 w/lower case 
& motor control 

NEC 5510 SpinWriter 

NEC 5520 SpinWriter 

NEC 5530 SpinWriter 

NEC Tractor-Feed Option 

LRC 7000 -h (64-col.) 

LRC 7000 -h (40-COl.) 

Okidata Microline-80 

Tractor-Feed Option 
RS-232-C (2K) Option 

LRC to TRS-80 or APPLE 

LRC to PET, IEEE 

LRC to RS232C, male/female 

730 or 737 to TRS-80 

NEC or 779 to TRS-80 

RS-232-C/RS-232-C male/male 

DUST COVERS 

TRS-80 (3pc set) 
APPLE 
ATARI 800 
ATARI 400 
PET/CBM 2001 



•TRS-80, atari, apple, and PET/CBM are trademarks ol Tandy Corp. Warner 
Apple Computer Co . and Commodore respectively. 



List 


Our \ 


Price 


Price * 


$280.00 


$262.50 


$200.00 


$187.50 


$119.00 


$85.00 


$114.95 


$99.95 


$124.95 


$99.95 


$995.00 


$895.00 


$1295.00 


$1195.00 


$1795.00 


$1619.00 


$95.00 


$84.95 


$1295.00 


$1195.00 


$1695.00 


$1495.00 


$395.00 


$349.00 


$395.00 


$349.00 


$40.00 


$37.50 


$40.00 


$37.50 


$795.00 


$699.00 


$995.00 


$875.00 


$1559.00 


$1095.00 


$1779.00 


$1295.00 


$3195.00 


$2595.00 


$3395.00 


$2895.00 


$3195.00 


$2495.00 


$225.00 


$195.00 


$405.00 


$349.00 


$389.00 


$339.00 


$800.00 


$709.00 


$140.00 


$129.00 


$299.00 


$279.00 




$20.00 




$59.00 




$65.00 




$29.00 




$35.00 




$24.95 




$7.95 




$7.95 




$7.95 




$7.95 




$11.95 


Jy Corp. Warner Communications, 



6SOUTH ST . MlifORD. NHOiOSS 

To order: Call Toll-free 1 -800-258-1790 im nh can (603)673.5U4) 
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RS-aOiAfsBTfciei 
olteriMlrfes... 

Featuring the Quality Engineering and 
IVIanufacturing of Steve Ciarcia and IVIicromint 




COMIVI-80 



^HATTER BOX 




FULL 8-BIT PARALLEL PORT 

RS-232-C PORT (up to 19,200 baud) 

UP TO 16 UNITS CAN BE CHAINED TOGETHER 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

CONNECTS TO KEYBOARD OR E.I. 

ONLY $179.95 



FULL 8-BIT PARALLEL PORT 

RS-232-C PORT (up to 19,200 baud) 

ACOUSTIC MODEM 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

CONNECTS TO KEYBOARD OR E.I. 

INCLUDES TERMINAL SOFTWARE 

ONLY $259.95 



DISK CONTROLLER (up to 4 drives) 

DATA SEPARATOR 

INCLUDES 16K OF RAM 

PROVISION FOR AN ADDITIONAL 16K RAM 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

Available September 1980 

ONLY $299.95 



BUSY BOX 



8 1/4" X 6 2/5" PLASTIC CASE 

CABLE AND CONNECTOR FOR TRS-80 KEYBOARD E.I. 

OPERATING MANUAL 

INCLUDES BASIC LISTING FOR CONTROL ROUTINE 

LEVEL II MINUMUM SYSTEM 

ONLY $109.95 

*TRS-80 is a trademark of Tandy Corp. 



6 SOUTH ST., MlLfORD, NH 030SS 

To order: Call Toll-Free 1 '800'258-1 790 an nh can (603) 673^5144) 

The SoUwire fxchinge A HirdSide (Div of ffobnulle & Sons, [nterpnsei, Inc ). SoUSide Publiattons 
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The Cofilrollei 

ELECTRONIC SECURITY AND 

CONVENIENCE AT YOUR 

FINGERTIPS 



QSR 



iysTEim mm 



^ptjLTRA SONIC COMMAND CONSOLE ... Its 

y/Y keyboard permits remote control operation of lights and 
^^- appliances in up to 16 separate locations. (List $49.95). . 




$42.99 



LAMP MODULE . . . Will control any incandescent lamp 
rated up to 300 watts from control signals received from 
Command Console. Functions include on and off, brighten 
and dim. (List $16.99) $14.99 

APPLIANCE MODULE . . . Receives signals from the 
Command Console to turn an appliance on and off (e.g.: TV, 
stereo, fan, etc.). (List $16.99) $14.99 

WALL SWITCH MODULE . . . Receives signals from the 
Command Console to control lights or lamps normally 
operated by a wall switch. (List $16.99) $14.99 

CORDLESS CONTROLLER . . .Transmits signals to 
the Ultra Sonic Command Console from any distance up to 
30 feet. All functions of the Command Console are 
duplicated on the Cordless Controller. (List $24.99) $19.99 

BUSY BOX , . . Connects to your micro-computer and 
transmits signals to the Ultra Sonic Command Console from 
any distance up to 30 feet. Your computer can now be 
programmed to control all functions of the BSR X-10 Home 
Control System, including dimming of lights. This unit con- 
nects directly to your TRS-80 (List $109.95) or APPLE (List 

$114.95) $99.95 

S-100 Busy Box (List $119.95) $114.95 

SPECIAL CONTROLLER STARTER KIT . . . Includes 
BSR X-10 Ultra Sonic Controller, 2 Lamp Modules, 1 
Appliance Module, 1 Cordless Controller and Busy Box 
(specify for TRS-80 or APPLE). (List $240.90) $199.95 



TRS-80 4 YEAR HOME CONTROL PROGRAM 

(Above prices do not include postage and handiing) 



$19.95 



6 SOUTH ST . MILfORD. NH 03055 

To order: Call Toll-free 1-800-258-1790 (m nh can (603)673 5U4) 



The SoUwirf fuchinge A HifdSide lUi* of Robitjille & Sons infer pnsr\ 



) S,,/fS/(/f PuNndl, 




91 



The Software Exchange Order Form 



DESCRIPTION MEMORY TYPE PRICE 




































































































































Check ADD handling charges 


$1.00 


SPECIFY: TRS-80, APPLE, 
ATARI or PET. Do not use for 
hardware. 


Money Order 


Additional charges 




r .^M^ .MiTk. 


^ 






Ifmasier Charge 


If" 


V/S4» 


TOTAL 












Signature.. 
Name.^ 



.Exp. Date. 



.Inter. No.. 



Address. 



City. 



.State.. 



-Zip. 



MAIL TO: The Software Exchange 
6 South St. 
Milford, NH 03055 
(In NH call 673-5144) 



or, CALL TOLL FREE 

for Orders Only 

1-800-258-1790 



Special prices In effect 60 days from malting 

Level II software available on disk for a $5.00 (per order) medium charge. This extra fee Is for any number of programs transferred to disk from tape 
when you order. If the order exceeds the capacity of a single disk, we absorb the extra cost. 

Be sure to Include handling charge and any additional charges when figuring your total. All orders are shipped within 46 hours. 

All prieee are subject to change without notice. We are not responsible for typographical errors. Including Incorrect prices. 

ALL SOFTWARE GUARANTEED TO LOAD AND RUN. If you experience difficulties, simply return the tape or disk properly protected for free 
replacement. Send to the attention of Bette Keenan, Customer Service Representative: please enclose a brief note and your name and mailing 
address with the software. 

ALL SOFTWAI^E SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE assumes no liability for loss or damage caused or alleged to be caused 
directly or Indirectly by equipment or products sold or exchanged by them or their distributors, including but not limited to any Interruption in 
service, loss of business or anticipatory profits or consequential damages resulting from use or operation of such equipment or software. 
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HARDSIDE ORDER FORM 



NAME 



STREET 



CITY 



STATE 



ZIP 



TEL NO. 



VISA/MASTER CHARGE 


EXP. DATE 




QUAN. 


PART NO. 


PRODUCT DESCRIPTION 


AMOUNT 










































































































































MAIL TO: 
HARDSIDE 
6 South Street 
Milford, NH 03055 

IMPORTANT 


Total Retail 




UPS Zone Weight Handling Charge 




Insurance 




Shipping Charge 




TOTAL 




Amount Enclosed 




COD Balance 





Use this form for hardware orders 
only. To avoid delay, be sure to fill in all the 
necessary Information. Please PRINT 
CLEARLY. Hardslde's terms and conditions 
are stated in this catalog. We are not 
responsible for typographical errors, 
including incorrect prices. Prices are subject 
to change without notice. We reserve the 
right to limit quantities. 



UPS CHART 



$1.25 



ADDITIONAL CHARGES: 

For each COD received for collection 

For each Address Correction - $1.25 

For each Acknowledgment of Delivery (AOD) - 

22 cents. 
For each package with a declared value over 

over $100.00 - 25 cents for each additional 

$100 or fraction thereof. 

WEIGHT AND SIZE LIMITS: 

Maximum Weight per package 50 POUNDS 
Maximum Weight of all packages from one 

shipper to one consignee in one day - 100 

pounds. 
Maximum Size per package - 108 INCHES IN 

LENGTH AND GIRTH COMBINED 
Minimum charge for a package measuring over 

84 Inches In length and girth combined will 

be equal to charge for a package weighing 

25 pounds. 



tz^3 United Parcel Service E«ectiw May i, 1980 

lupsj 

V^ COMMON CARfilER RATE CHART 


Including 1.3% Fuel Surcharge 


witisHT 


kny FRACTION or * coumc 

RATES TO 


°™1 


GHT $H 

26 Ib^ 


OWN TAKES TMC NEXT MIGMCH R*T£ 1 
RATES TO J 


$L08 


$1 10 


$1 13 


$1 18 


$1 2Y 


$128^ 


%\M 


$3 23 


$3 84^ 


ZOtfCA 

$4 61 


20MC sjzoHie 

$5 58|$6 92 


$8 3 J 


$9 95 


lib. 


2" 


1 16 


122 


128 


135 


145 


156 


168 


27" 


3 32 


3 95 


4 80 


5 75! 7 15 


8 60 


10 29 


3" 


126 


133 


142 


1.53 


168 


184 


203 


28" 


3 40 


4 06 


4 94 


5 94i 7 37 


8 88 


1064 


4" 


134 


144 


156 


170 


190 


213 


2 37 


29" 


3 49 


4 17 


5 09 


611; 761 


917 


10 98 


5" 
6" 


1.43 
•151 


154 
165 


1 70 

184 


1.87 
2.06 


2 14 
2 36" 


2 40 
2 68 


2 71 

3 06 


30" 
31" 


358 


4 27 


5 22 


6_^ 7 83 


9 44 


1133 


3 6? 


4 39 


5 36 


6 46 


8 06 


9 72 


1167 


7" 


160 


1.76 


199 


2 23 


2 59 


297 


3 40 


32" 


3 75 


4 50 


5 50 


6 64 


8 29 


1001 


1201 


8" 


168 


187 


2 13 


241 


2 82 


3 25 


3 75 


33" 


3 84 


461 


5 64 


6 82 


8 52 


1029 


12 36 


9" 


177 


1.99 


2 27 


258 


3 05 


3 54 


4 09 


34 " ; 3 92 


4 72 


5 78 


6 99 


8 74 


10 58 


12 70 


10" 
U " 


185 
194 


2 09 
220 


2 40 
2 54 


2 76 
2 94 


327 
3 50 


381 
4 09 


4 44 
4 78 


35" 4 01 


4 82 
4 93 


5 93 

6 07 


716 


8 98 


1085 


13 05 
13 39 


36" 


4 09 


7 34 


9 20 


11 13 


12" 


203 


231 


2 68 


311 


3 73 


4 38 


513 


37 " 


4.18 


5 04 


621 


7 52 


9 43 


11.42 


13 74 


13" 


212 


2 42 


2 83 


3.29 


3 96 


4 66 


547 


38" 


426 


5 16 


6 35 


7 70 


9 65 


11 70^1408 


14" 


•2.20 


253 


2.97 


3 46 


4 18 


4 94 


581 


39" 


436 


527 


6 49 


7 87 


9 89 


1198 14 43 


15 " 1 2 29 


2 63 


311 


364 


4,42 
464 


5 22 
5 50 


615 
6 50 


40" 
41" 


4 44 


537 


663 


8 04 


1011 


12 26 14 77 


16 "jl.37 


2 75 


3 25 


382 


4 53 


5 48 


677 


8 23 


1034 


1254:1511 


17" 2 46 


286 


3 39 


3 99 


4 87 


5 78 


685 


42" 


461 


5 59 


691 


840 


10 57 


12 82 15 46 


18" 2 54 


297 


354 


4 17 


5-10 


607 


719 


43" 


4 70 


5 70 


7 05 


858 


10,80 


13 11 15 80 


19" 2 63 


308 


3 68 


4 35 


5 33 


6 35 


7 54 


44" 


478 


581 


7 19 


8 75 


1102 


13.39 16 15 


20" 2.71 


318 
329 


3,8! 
3.95 


452 
470 


555 
578 


663 
691 


7 88 

8 23 


45" 
46" 


4 87 
4 95 


592 
6 03 


7 33 
7 48 


8 92 


1125 


13,67 


16 49 


21 " 


2.81 


911 


1148 


13 95 


16 84 


22" 


289 


340 


4 09 


4.87 


601 


719 


8 57 


47" 


5 04 


6 14 


7 62 


928 


1171 


14.23 17 18 


23" 


2.98 


352 


4 23 


505 


6 24 


7 48 


891 


48" 


513 


625 


7 76 


9 46 


1193 


14 52 17 52 


24" 3 06 


363 


4 38 


5.23 


646 


776 


926 


49" 


5.22 


636 


7 90 


9 63 


1217 


14 80 17 8? 


25"! 3 15 


3 73 


^ 


5 40 


6 70 


8 03 


9 60 


50" 


530 


6 46 


8 03 


981 


12,39 


1507'1821 
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COMING IN THE 




©S-80 



Dr. Livingston, in search of . . . 

Adventure in the dark continent! 

Lone Star Corral 

Can you outsmart a horse? 

© APPLE 

Stereo Music Generator 

Why settle for monaural sound? 

Foosball 

Paddle yourself silly! ! ! 



SEPTEMBER ISSUE 
©ATARI 

Ricochet 

Strain your powers of deduction! 
Sleuth 

Mind boggling 

Super Barricade 

Crossover adds to the challenge! 

©PLUS... 

columns, articles, and other features! 

Don't miss a single issue of the great new SoftSide! 




niwncHiiurREPUicES 




In fact it even replaces the age-old myth that a timepiece loaded with talent has to be 
expensive. 

The Casio C-80 has a list price of $50. It has been advertised nationally for $75. 
HARDSIDE's special price Is only $44.95 (we even pay the UPS charges). 
A CALCULATOR MADE FOR REAL FINGERS 

Here's the first calculator chronograph that can be operated easily with your fingertips. No 
need to use a stylus or pen; the keys are far enough apart that even the broadest fingers can 
work them. 

Add, subtract, nriultiply, divide - even perform chain calculations up to eight places, plus 
decimal. Numbers appear in crisp, liquid, crystal digits. 
STOPWATCH, 2 TIME ZONES -AND MORE 

You jet 1/100 of a second accuracy, lap times, and up to 59.59 minutes of track-style 
timflceeping. 

You also get two time zones; the second zone can be set for 12 or 24-hour time. Hours, 
minutes and seconds are displayed with reliable 15-second-a-month quartz precision. 

Press another button and the day of the week and date appear. And press another for built- 
in night light. 

FEATHER-UQHT, YET RUGGED 

The 1-3/4 oz. case and band are constructed of high-impact black plastic. And so 
lightweight and comfortable, you may not realize that you are wearing it. This Casio 
chronograph is rugged, resists scratching, and is water-resistant. 

99-01 $44.95 



TO ORDER TOLL FREE 1-800-258-1790 (in NH call 6735144) 
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The BONE FONE is a 
miniaturized AM/FM stereo 
system that drapes over your 
shoulders like a scarf. The BONE 
FONE gives new meaning to the 
word portable. You don't carry a 
BONE FONE around with you. 
You wear it. Ski with it, cycle, jog 
or just take a leisurely stroll 
through the woods with it. It's the 
hands-free stereo that brings 
beautiful music to every indoor or 
outdoor activity without disturb- 
ing those around you and without 
covering your ears. 

The BONE FONE stereo is 
covered with a sleeve made of 
Lycra Spandex - the same 
material used to make expensive 



Bone 
Fone 



swim suits, so it's easily 
washable. You simply remove the 
sleeve, dip it in soapy water, rinse 
and let dry. The entire system is 
also protected against damage 
from moisture and sweat making 
it ideal for jogging or bicycling. 

The BONE FONE has been sell- 
ing nation-wide for $70. HARD- 
SIDE's special price is ONLY 
$56.95 plus $2.50 handling (we 
pay the UPS charges). 

9902 $56.95 



TO ORDER 

TOLL FREE 

1800-258-1 790 

(In NH call 673-5144) 
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^inOurSoftSide 

ebratibn ! 




Mir 



^: 



£ . ^ 



* ^ / 



We're 
Bigger 

and Better 
than Ever 




V 



7 -^"''■^f 

Special Offer to New Subscribers: 
SoftSide - $15 for one year (12 issues) 

Don't miss a single issue of SoftSide - the finest software 
source for the Radio Shack TRS-80*, APPLE 11*, and ATARI *! 

Save hours of typing — buy SoftSide's programs for your 
computer already on cassette or diskette, with magazine. Try our 
low introductory price for one year (12 issues). 

To order, call TOLL FREE 1-800-258-1790 (in NH call 673-5144) 
or mail the following information to: SoftSide Publications, 
Subscriptions, 6 South Street, Milford, NH 03055. 



SoftSide: $15.. one yr..(12 issues) 



D 

I I SoftSide: Apple on cassette $69. 

I I SoftSide: Apple on diskette $129. 



D 
D 



SoftSide: S-80 on cassette $69. 
SoftSide: S-80 on diskette $129. 

SoftSide Atari on cassette and diskette 
will be available soon' 



I own: 

D Apple 
D TRS-80 
n Atari 
QPet 
nOther_ 



Exp. Date. 
Signature- 
Name 



.Interbank #(M/C only). 



Ad dress. 



. State - 



.Zip. 



Subscribe to SoftSide today! 

Introductory offer valid until November 1. 1980. Not applicabletooverseassubscribers. Write for subscriptions rates. 

'TRS-80. Apple and Atari are trademarks of Tandy, Apple Computer Co , and Warner Communications, respectively 



C 



